|
6, 14, 15, 18, 33, 35, 38, 42, 54, 58, 65, 69, 70, 75, 77, 90, 93, 102, 106, 110, 119, 130, 143, 145, 150, 162, 165, 174, 177, 185, 190, 209, 217, 221, 230, 231, 234, 242, 245, 273, 285, 287, 290, 294, 299, 305, 323, 330, 338, 350, 357, 375, 378, 390, 407, 410, 414, 434, 437, 450, 455, 465, 469, 473, 483, 493, 494, 507
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
PROG
|
(PARI)
A156552(n) = {my(f = factor(n), p2 = 1, res = 0); for(i = 1, #f~, p = 1 << (primepi(f[i, 1]) - 1); res += (p * p2 * (2^(f[i, 2]) - 1)); p2 <<= f[i, 2]); res}; \\ From A156552 by David A. Corneth
for(n=1, oo, if(A324824(n), print1(n, ", ")));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|