OFFSET
0,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
N. J. A. Sloane, Transforms
MAPLE
a:= proc(n) option remember; add(`if`(k<3, 1,
a(iquo(k, 3)))*binomial(n, k), k=0..n)
end:
seq(a(n), n=0..40); # Alois P. Heinz, Jul 08 2015
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
easy,nonn,eigen
AUTHOR
EXTENSIONS
More terms from Vladeta Jovovic, Jul 26 2002
STATUS
approved