editing
approved
editing
approved
a(1716) from Michael De Vlieger, Mar 10 2020.
approved
editing
proposed
approved
editing
proposed
1, 5, 23, 135, 1119, 14319, 300015, 10636463, 652217135, 70382845743, 13551477257519, 4706105734658351, 2973879284783561007, 3444999327807280048431, 7362415635261959807011119, 29188908702092573515760044335
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 *)
a(17) from Michael De Vlieger, Mar 10 2020.
approved
editing
_Paul D. Hanna (pauldhanna(AT)juno.com), _, Apr 11 2007
easy,nonn,new
Paul D . Hanna (pauldhanna(AT)juno.com), Apr 11 2007
a(n) = A129095(2^n + 2^(n-1) - 1) for n>=1.
1, 5, 23, 135, 1119, 14319, 300015, 10636463, 652217135, 70382845743, 13551477257519, 4706105734658351, 2973879284783561007, 3444999327807280048431, 7362415635261959807011119
1,2
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.
(PARI)
easy,nonn
Paul D Hanna (pauldhanna(AT)juno.com), Apr 11 2007
approved