|
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 25, 20, 27, 22, 19, 24, 23, 26, 21, 28, 29, 30, 49, 32, 45, 34, 35, 36, 31, 50, 33, 40, 37, 54, 41, 44, 81, 38, 43, 48, 125, 46, 75, 52, 47, 42, 121, 56, 63, 58, 77, 60, 53, 98, 39, 64, 55, 90, 59, 68, 135, 70, 61, 72, 169, 62, 51, 100, 67, 66, 175, 80, 99, 74, 71, 108, 343, 82, 105, 88
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
See comments and examples in A302032 to see how Ludic factorization proceeds.
|
|
LINKS
|
|
|
FORMULA
|
Other identities. For all n >= 1:
|
|
PROG
|
(PARI)
A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ From A003961
(Scheme, with memoization-macro definec)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|