|
|
|
|
1, -3, -4, 3, -6, 12, 4, -3, -8, 18, 24, -12, 6, -12, -4, 3, -12, 24, 32, -18, 48, -72, -24, 12, 8, -18, -24, 12, -6, 12, 4, -3, -14, 36, 48, -24, 72, -96, -32, 18, 96, -144, -192, 72, -48, 72, 24, -12, 12, -24, -32, 18, -48, 72, 24, -12, -8, 18, 24, -12, 6, -12, -4, 3, -18, 42, 56, -36, 84, -144, -48, 24, 112, -216, -288, 96, -72, 96, 32, -18
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(PARI)
A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t }; \\ From A005940
A001615(n) = (n * sumdivmult(n, d, issquarefree(d)/d)); \\ From A001615
memoA323363 = Map();
A323363(n) = if(1==n, 1, my(v); if(mapisdefined(memoA323363, n, &v), v, v = -sumdiv(n, d, if(d<n, A001615(n/d)*A323363(d), 0)); mapput(memoA323363, n, v); (v)));
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|