|
|
|
|
1, 2, 9, 4, 10, 3, 21, 8, 63, 20, 22, 9, 78, 7, 5, 16, 119, 21, 171, 40, 189, 44, 115, 3, 325, 52, 81, 3, 116, 5, 465, 32, 33, 238, 7, 9, 592, 57, 351, 16, 779, 63, 903, 88, 35, 115, 517, 18, 1519, 650, 119, 312, 424, 27, 220, 14, 1539, 232, 531, 5, 1830, 155, 1323, 64, 260, 11, 2077, 68, 345, 7, 1207, 42, 2628, 1184
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(PARI)
A064989(n) = { my(f); f = factor(n); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f) };
\\ Alternatively as:
|
|
CROSSREFS
|
Cf. A000203, A064989, A246278, A326041, A341526, A341527 [= a(A003961(n))], A341605, A341606, A342661, A342662, A342664 (denominators), A342670.
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|