|
1, 2, 5, 12, 19, 24, 27, 28, 38, 39, 44, 54, 56, 59, 60, 65, 78, 83, 84, 87, 92, 95, 123, 124, 129, 133, 136, 143, 160, 167, 168, 178, 212, 223, 248, 258, 259, 266, 269, 276, 285, 288, 297, 308, 360, 393, 395, 413, 427, 429, 437, 446, 455, 473, 479, 501, 518, 522, 528, 555, 560, 581, 611, 612, 681, 738, 752, 755
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Numbers k such that sigma(k) is in A336461.
|
|
LINKS
|
|
|
PROG
|
(PARI)
A335915(n) = { my(f=factor(n)); prod(k=1, #f~, if(2==f[k, 1], 1, (A000265((f[k, 1]^2)-1)^f[k, 2]))); };
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|