A174958 a(n)=Sum((A008292(n - j, j) - C(n - j - 1, j))/2, j=0, [(n - 1)/2])

0, 0, 0, 0, 1, 4, 15, 56, 214, 854, 3607, 16172, 76853, 386082, 2044198, 11373124, 66300473, 403939612, 2566116299, 16962629860, 116452790838, 828903740138, 6107712000563, 46521422681724, 365811331693305, 2965957618809246, 24767913121016790, 212803409969904264

Offset

0,6

Comments

Sequence A000800 minus the Lucas Fibonacci sum divided by two.

References

Burton, David M.,Elementary number theory,McGraw Hill,N.Y.,2002,p 286, problem 23

Links

Table of n, a(n) for n=0..27.

Mathematica

a = Table[Sum[(Eulerian[n -
      j, j] - Binomial[n - j - 1, j])/2, {j, 0,
            Floor[(n - 1)/2]}], {n, 0, 30}]

Crossrefs

Cf. A000800,A000045,A008292

Sequence in context: A047128 A087438 A131497 * A244824 A316592 A077823

Adjacent sequences: A174955 A174956 A174957 * A174959 A174960 A174961

Keyword

nonn

Author

Roger L. Bagula, Dec 02 2010

Status

approved