A129097 a(n) = A129095(2^n - 1) for n>=1.

1, 3, 11, 51, 323, 3075, 47427, 1230787, 54772163, 4247022531, 582413946819, 143061847179203, 63604391931367363, 51621812365091401667, 77028054123935294320579, 212592144046864728487817155

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.

Links

Table of n, a(n) for n=1..16.

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[s[[2^# - 1]] &, e]] (* Michael De Vlieger, Mar 10 2020 *)

Prog

(PARI)

Crossrefs

Cf. A129095, A129096, A129098, A129099.

Sequence in context: A007047 A182176 A244754 * A319155 A362468 A292927

Adjacent sequences: A129094 A129095 A129096 * A129098 A129099 A129100

Keyword

easy,nonn

Author

Paul D. Hanna, Apr 11 2007

Status

approved