OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Donovan Johnson)
MATHEMATICA
Flatten[Position[Partition[DivisorSigma[0, Range[200000]], 5, 1], _?(Length[ Union[#]] == 1&), {1}, Heads->False]] (* Harvey P. Dale, May 30 2014 *)
SequencePosition[DivisorSigma[0, Range[200000]], {x_, x_, x_, x_, x_}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 03 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved