OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..212
FORMULA
a(1)=1, a(2)=2, a(2m+1)=3*a(2m)-2*a(m), a(2m+2)=3*a(2m+1) (m is positive integer).
EXAMPLE
a(6)=2*(a(5)+a(4)+a(3)) = 2*(32+12+4) = 96.
MAPLE
a[1]:= 1;
for m from 1 to 100 do
a[m+1]:= 2*add(a[m+1-k], k=1..floor((m+1)/2));
od:
seq(a[i], i=1..100); # Robert Israel, May 18 2014
MATHEMATICA
Fold[Append[#1, 2 Total[#1[[#2 - Range[Floor[#2/2] ] ]] ] ] &, {1}, Range[2, 29]] (* Michael De Vlieger, Dec 11 2017 *)
PROG
(PARI) lista(nn) = {v = vector(nn); v[1] = 1; for (n=2, nn, v[n] = 2*sum(k=1, n\2, v[n-k]); ); v; } \\ Michel Marcus, May 18 2014
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Dec 11 1999
EXTENSIONS
More terms from James A. Sellers, May 04 2000
Two more terms from Michel Marcus, May 18 2014
STATUS
approved