login
A144041
Shifts left when Euler transform applied 9 times.
3
0, 1, 1, 10, 64, 529, 4270, 37078, 328765, 2997844, 27840748, 262746590, 2511753957, 24274552279, 236771528856, 2327857190814, 23045073461778, 229523320443974, 2298252776303916, 23122596000124215, 233629865440550370, 2369682121825700424, 24119295413989862382
OFFSET
0,4
LINKS
N. J. A. Sloane, Transforms
MAPLE
k:=9: with(numtheory): etr:= proc(p) local b; b:=proc(n) option remember; local d, j; if n=0 then 1 else add(add(d*p(d), d=divisors(j)) *b(n-j), j=1..n)/n fi end end: a:='a': b[1]:=etr(a): for t from 2 to k do b[t]:= etr(b[t-1]) od: a:= n-> `if`(n<2, n, b[k](n-1)): seq(a(n), n=0..30);
MATHEMATICA
k = 9; etr[p_] := Module[{b}, b[n_] := b[n] = If[n == 0, 1, Sum[Sum[d*p[d], {d, Divisors[j]}]*b[n-j], {j, 1, n}]/n]; b]; b[1] = etr[a]; For[t = 2, t <= k, t++, b[t] = etr[b[t-1]]]; a[n_] := If[n<2, n, b[k][n-1]]; Table[a[n], {n, 0, 30}] (* Jean-François Alcover, Mar 09 2015, after Alois P. Heinz *)
CROSSREFS
9th column of A144042.
Cf. A316109.
Sequence in context: A155618 A249978 A199487 * A352113 A286070 A033908
KEYWORD
eigen,nonn
AUTHOR
Alois P. Heinz, Sep 07 2008
STATUS
approved