|
0, 1, 3, 3, 7, 5, 15, 7, 6, 13, 31, 11, 63, 17, 10, 15, 127, 13, 255, 19, 23, 47, 511, 23, 28, 83, 14, 47, 1023, 31, 2047, 31, 54, 175, 22, 31, 4095, 257, 78, 55, 8191, 37, 16383, 67, 30, 799, 32767, 47, 60, 31, 250, 131, 65535, 29, 55, 71, 270, 1301, 131071, 43, 262143, 2735, 54, 63, 126, 95, 524287, 303, 774, 41, 1048575, 55
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|