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!)
A051164 Sequence is defined by property that (a0,a1,a2,a3,...) = binomial transform of (a0,a0,a0,a1,a1,a1,a2,a2,a2,a3,a3,a3,...). 5

%I

%S 1,2,4,9,21,48,108,243,549,1243,2819,6412,14640,33549,77121,177747,

%T 410565,949992,2200978,5103623,11839783,27471189,63734823,147831594,

%U 342767586,794413545,1840338975,4261443374,9863627962,22822212734,52789053456,122073285984

%N Sequence is defined by property that (a0,a1,a2,a3,...) = binomial transform of (a0,a0,a0,a1,a1,a1,a2,a2,a2,a3,a3,a3,...).

%H Alois P. Heinz, <a href="/A051164/b051164.txt">Table of n, a(n) for n = 0..1000</a>

%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>

%p a:= proc(n) option remember; add(`if`(k<3, 1,

%p a(iquo(k, 3)))*binomial(n, k), k=0..n)

%p end:

%p seq(a(n), n=0..40); # _Alois P. Heinz_, Jul 08 2015

%t a[n_] := a[n] = Sum[If[k<3, 1, a[Quotient[k, 3]]]*Binomial[n, k], {k, 0, n}]; Table[a[n], {n, 0, 40}] (* _Jean-Fran├žois Alcover_, Feb 18 2017, after _Alois P. Heinz_ *)

%Y Cf. A051163, A051165, A051166.

%K easy,nonn,eigen

%O 0,2

%A _Jonas Wallgren_

%E More terms from _Vladeta Jovovic_, Jul 26 2002

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 28 10:24 EDT 2020. Contains 337393 sequences. (Running on oeis4.)