|
| |
|
|
A185873
|
|
Values of k corresponding to the terms of A185584.
|
|
1
|
|
|
|
1, 4, 11, 19, 31, 74, 65, 80, 107, 107, 107, 107
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
Based on postings to the Sequence Fans Mailing List by Claudio Meller and Andrew Weimholt, circa Feb 03 2011.
|
|
|
LINKS
|
Table of n, a(n) for n=1..12.
|
|
|
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
|
Cf. A185584.
Sequence in context: A037262 A101418 A213395 * A009874 A008051 A038424
Adjacent sequences: A185870 A185871 A185872 * A185874 A185875 A185876
|
|
|
KEYWORD
|
nonn,more,changed
|
|
|
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
|
| |
|
|
