|
|
|
|
1, 4, 12, 24, 36, 44, 72, 96, 112, 132, 180, 220, 360, 384, 396, 400, 480, 560, 660, 784, 832, 864, 1044, 1056, 1188, 1200, 1344, 1920, 1980, 2088, 2352, 2376, 2496, 2800, 3168, 3600, 3920, 4320, 4736, 5220, 5280, 5376, 5824, 5940, 6800, 6912, 7056, 7200, 7488, 8400, 8800, 9504, 9900, 10000, 10440, 10800, 11484
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Of 2608 initial terms, only 188 are not in A353796. The first three of these are: 400, 784, 832.
|
|
LINKS
|
|
|
PROG
|
(PARI)
A003958(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]--); factorback(f); };
A003961(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); }; \\ From A003961
A064989(n) = { my(f=factor(n>>valuation(n, 2))); for(i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f); };
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|