|
| |
|
|
A038072
|
|
Shifts left under Euler transform.
|
|
2
|
|
|
|
-1, -1, -1, 0, 1, 2, 0, -3, -5, -1, 11, 19, 4, -42, -78, -18, 172, 333, 88, -747, -1483, -436, 3355, 6834, 2193, -15417, -32248, -11206, 72264, 154900, 57929, -344282, -755103, -302126, 1661464, 3726663, 1586904, -8103245, -18581402, -8384292, 39876825
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,6
|
|
|
LINKS
|
|
|
|
MAPLE
|
with(numtheory): a:= proc(n) option remember; local d, j; if n=1 then -1 else (add(d*a(d), d=divisors(n-1)) +add(add(d*a(d), d=divisors(j)) *a(n-j), j=1..n-2))/(n-1) fi end: seq(a(n), n=1..40); # Alois P. Heinz, Sep 06 2008
|
|
|
MATHEMATICA
|
a[n_] := a[n] = If[n == 1, -1, (Sum[d a[d], {d, Divisors[n-1]}] + Sum[Sum[d a[d], {d, Divisors[j]}] a[n-j], {j, 1, n-2}])/(n-1)];
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
sign,eigen
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
