

A129098


a(n) = A129095(2^n + 2^(n1)  1) for n>=1.


4



1, 5, 23, 135, 1119, 14319, 300015, 10636463, 652217135, 70382845743, 13551477257519, 4706105734658351, 2973879284783561007, 3444999327807280048431, 7362415635261959807011119, 29188908702092573515760044335
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

b(n)=A129095(n) obeys the recurrence: b(n) = b(n/2) (n even), b(n) = 2*b(n1) + b(n2) (n odd >1), with b(1) = 1.


LINKS

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


MATHEMATICA

Block[{e = 18, s}, s = Nest[Append[#1, If[EvenQ[#2], #1[[#2/2]], 2 #1[[1]] + #1[[2]] ] ] & @@ {#, Length@ # + 1} &, {1}, 2^e]; Array[s[[2^# + 2^(#  1)  1]] &, e  1]] (* Michael De Vlieger, Mar 10 2020 *)


PROG

(PARI)


CROSSREFS

Cf. A129095, A129096, A129097, A129099.
Sequence in context: A077240 A281231 A244786 * A047049 A020034 A128884
Adjacent sequences: A129095 A129096 A129097 * A129099 A129100 A129101


KEYWORD

easy,nonn


AUTHOR

Paul D. Hanna, Apr 11 2007


EXTENSIONS

a(16) from Michael De Vlieger, Mar 10 2020.


STATUS

approved



