|
|
|
|
0, 1, 0, 1, 0, 3, 0, 5, -2, 3, 0, 9, 0, 15, -2, 1, 0, 11, 0, 17, -6, 7, 0, 21, -4, 31, -2, 13, 0, 3, 0, 29, -2, 39, -4, 9, 0, 255, -26, 9, 0, 35, 0, 65, -2, 135, 0, 45, -8, 15, -34, 129, 0, 27, -12, 69, -90, 575, 0, 41, 0, 679, -2, 9, -4, 19, 0, 173, -2, 39, 0, 25, 0, 3583, -2, 301, -8, 83, 0, 77, -14, 2727, 0, 5, -52, 8703, -378, 9, 0, 3
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,6
|
|
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)};
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|