OFFSET
0,5
COMMENTS
Shifts 2 places left and decreases by one under a variant of binomial transform (see formula section).
LINKS
Robert Israel, Table of n, a(n) for n = 0..648
FORMULA
Sum_{i=0..n} binomial(n+1,i+1)*a(i) = a(n+2) - 1.
G.f. g(x) satisfies g(x) = x^2/(1-x) + x^2*g(x/(1-x))/(1-x)^2. - Robert Israel, Aug 28 2016
MAPLE
A[0]:= 0:
A[1]:= 0:
for m from 2 to 50 do
A[m]:= 1 + add(binomial(m-1, i+1)*A[i], i=0..m-2)
od:
seq(A[i], i=0..50); # Robert Israel, Aug 28 2016
MATHEMATICA
Clear[a]; a[0] = 0 ; a[1] = 0; a[n_] := a[n] = 1 + Sum[Binomial[n - 1, j+1]*a[j], {j, 0, n - 1}]; Table[a[n], {n, 0, 22}]
PROG
(PARI) first(n)=my(v=vector(n)); for(k=0, n-2, v[k+2]=sum(i=2, k, binomial(k+1, i+1)*v[i])+1); concat(0, v) \\ Charles R Greathouse IV, Aug 29 2016
CROSSREFS
KEYWORD
nonn,eigen,easy
AUTHOR
Olivier Gérard, Aug 11 2016
STATUS
approved