|
1, 2, 4, 7, 8, 14, 15, 16, 21, 28, 33, 42, 45, 56, 60, 64, 84, 102, 112, 128, 130, 132, 147, 152, 160, 168, 180, 240, 273, 306, 336, 406, 408, 435, 441, 448, 512, 513, 520, 528, 546, 574, 588, 615, 720, 765, 896, 960, 1023, 1026, 1224, 1323, 1344, 1470, 1568, 1740, 1764, 1785, 1989, 2052, 2112, 2184, 2296, 2352, 2432, 2625
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
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
|
|