OFFSET
1,2
COMMENTS
b(n)=A129095(n) obeys the recurrence: b(n) = b(n/2) (n even), b(n) = 2*b(n-1) + b(n-2) (n odd >1), with b(1) = 1.
MATHEMATICA
Block[{e = 16, s}, s = Nest[Append[#1, If[EvenQ[#2], #1[[#2/2]], 2 #1[[-1]] + #1[[-2]] ] ] & @@ {#, Length@ # + 1} &, {1}, 2^e]; Array[Total@ s[[2^# ;; 2^(# + 1) - 1]] &, e, 0] ] (* Michael De Vlieger, Mar 10 2020 *)
PROG
(PARI)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Paul D. Hanna, Apr 11 2007
EXTENSIONS
a(16) from Michael De Vlieger, Mar 10 2020
STATUS
approved