|
%I #28 Apr 11 2024 04:02:08
%S 28374,90181,157493,171893,171894,180965,180966,210133,298694,346502,
%T 369061,376742,610310,647381,647382,707286,729542,769862,1039493,
%U 1039494,1071829,1071830,1243541,1302005,1449605,1450261,1450262
%N Numbers k such that k through k+5 all have the same number of divisors.
%H Amiram Eldar, <a href="/A049052/b049052.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Donovan Johnson)
%t SequencePosition[DivisorSigma[0,Range[1451000]],{x_,x_,x_,x_,x_,x_}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 03 2020 *)
%Y Cf. A000005, A006558, A019273, A119479.
%Y Other runs of equidivisor numbers: A005237 (runs of 2), A005238 (runs of 3), A006601 (runs of 4), A049051 (runs of 5), A049053 (runs of 7).
%K nonn,changed
%O 1,1
%A _David W. Wilson_
|
