login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A144038 Shifts left when Euler transform applied 6 times. 3
0, 1, 1, 7, 34, 209, 1260, 8219, 54677, 374904, 2617996, 18588586, 133708072, 972484206, 7139186644, 52832157095, 393700752053, 2951755132720, 22250074031893, 168524281244364, 1281906305775734, 9788771511218660, 75010092629043843, 576625427728255451 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

LINKS

Alois P. Heinz, Table of n, a(n) for n = 0..1000

N. J. A. Sloane, Transforms

MAPLE

k:=6: 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

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]; A[n_, k_] := Module[{a, b, t}, b[1] = etr[a]; For[ t = 2, t <= k, t++, b[t] = etr[b[t-1]]]; a = Function[m, If[m == 1, 1, b[k][m - 1]]]; a[n]]; Table[A[n, 6], {n, 0, 30} ] (* Jean-Fran├žois Alcover, Mar 05 2015, after Alois P. Heinz *)

CROSSREFS

6th column of A144042.

Cf. A316106.

Sequence in context: A027233 A117650 A273221 * A027842 A232043 A027683

Adjacent sequences:  A144035 A144036 A144037 * A144039 A144040 A144041

KEYWORD

eigen,nonn

AUTHOR

Alois P. Heinz, Sep 07 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 19 17:35 EDT 2021. Contains 347564 sequences. (Running on oeis4.)