|
|
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
|
|
|
LINKS
|
|
|
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}
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|