|
%I #18 Nov 09 2018 20:36:58
%S 1,4,11,19,31,74,65,80,107,107,107,107
%N Values of k corresponding to the terms of A185584.
%C Based on postings to the Sequence Fans Mailing List by _Claudio Meller_ and _Andrew Weimholt_, circa Feb 03 2011.
%t First generate the sequence A185584 using the program supplied there. Then apply this program to that sequence:
%t Position[Accumulate[Divisors[#]^2],#][[1,1]]&/@ {A185584}
%t (* _Harvey P. Dale_, Feb 05 2011 *)
%Y Cf. A185584.
%K nonn,more
%O 1,2
%A _N. J. A. Sloane_, Feb 05 2011
%E More terms from _Harvey P. Dale_, Feb 05 2011
%E a(8)-a(11) from _Donovan Johnson_, Feb 07 2011
%E a(12) from _Donovan Johnson_, Jan 20 2014
| 