|
|
|
|
6, 18, 30, 42, 102, 138, 150, 198, 270, 282, 462, 522, 570, 618, 642, 810, 822, 858, 882, 1050, 1062, 1230, 1278, 1290, 1302, 1482, 1698, 1722, 1878, 1950, 1998, 2082, 2130, 2142, 2238, 2310, 2382, 2550, 2658, 2730, 2790, 2802, 2970, 3258, 3300, 3330, 3390, 3462, 3558, 3582, 3822, 3918, 3930, 4002, 4050, 4158, 4218, 4230, 4242
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
PROG
|
(PARI)
A335884(n) = { my(f=factor(n)); sum(k=1, #f~, if(2==f[k, 1], 0, f[k, 2]*(1+max(A335884(f[k, 1]-1), A335884(f[k, 1]+1))))); };
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|