OFFSET
1,2
COMMENTS
Based on postings to the Sequence Fans Mailing List by Claudio Meller and Andrew Weimholt, circa Feb 03 2011.
MATHEMATICA
First generate the sequence A185584 using the program supplied there. Then apply this program to that sequence:
Position[Accumulate[Divisors[#]^2], #][[1, 1]]&/@ {A185584}
(* Harvey P. Dale, Feb 05 2011 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
N. J. A. Sloane, Feb 05 2011
EXTENSIONS
More terms from Harvey P. Dale, Feb 05 2011
a(8)-a(11) from Donovan Johnson, Feb 07 2011
a(12) from Donovan Johnson, Jan 20 2014
STATUS
approved