|
|
A261682
|
|
a(n) = 2^n+(1+(n mod 2)/2)*C(n+1,floor((n+(n mod 2))/2))-1.
|
|
1
|
|
|
1, 4, 6, 16, 25, 61, 98, 232, 381, 889, 1485, 3433, 5811, 13339, 22818, 52072, 89845, 204001, 354521, 801421, 1401291, 3155299, 5546381, 12444841, 21977515, 49155331, 87167163, 194392627, 345994215, 769547191, 1374282018, 3049104232, 5461770405, 12090343921
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
If n mod 2 = 0, then a(n) = 2^n+binomial(n+1,n/2)-1, otherwise a(n) = 2^n+(3/2)*binomial(n+1,(n+1)/2)-1.
If n mod 2 = 0, then a(n+2) = a(n+1) + a(n) + A000108(n+1) - 2^n - 1; otherwise, a(n+2) = a(n+1) + a(n) + A046224(n+2) - 2^n - 1. - Eric Werley, Sep 16 2015
Conjecture: -(n+2)*(15*n^2-29*n-56)*a(n) +9*(5*n^3-3*n^2-24*n-20)*a(n-1) +2*(15*n^3-14*n^2-219*n+158)*a(n-2) +36*(-5*n^3+8*n^2+31*n-38)*a(n-3) +8*(n-2)*(15*n^2+n-70)*a(n-4)=0. - R. J. Mathar, Jan 04 2017
|
|
MAPLE
|
a:= n-> 2^n +((2+irem(n, 2))/2)*binomial(n+1, ceil(n/2))-1:
|
|
MATHEMATICA
|
Table[If[EvenQ@ n, 2^n + Binomial[n + 1, n/2] - 1, 2^n + (3/2) Binomial[n + 1, (n + 1)/2] - 1], {n, 0, 33}] (* Michael De Vlieger, Sep 24 2015 *)
|
|
PROG
|
(PARI) a(n) = if (n%2, 2^n+(3/2)*binomial(n+1, (n+1)/2)-1, 2^n+binomial(n+1, n/2)-1); \\ Michel Marcus, Sep 05 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|