|
|
|
|
1, 3, 5, 11, 13, 23, 29, 51, 53, 79, 89, 135, 141, 199, 221, 323, 325, 431, 457, 615, 625, 803, 849, 1119, 1125, 1407, 1465, 1863, 1885, 2327, 2429, 3075, 3077, 3727, 3833, 4695, 4721, 5635, 5793, 7023, 7033, 8283, 8461, 10067, 10113, 11811, 12081, 14319
(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(n-1) + b(n-2) (n odd >1), with b(1) = 1.
|
|
LINKS
|
|
|
MATHEMATICA
|
With[{s = Nest[Append[#1, If[EvenQ[#2], #1[[#2/2]], 2 #1[[-1]] + #1[[-2]] ] ] & @@ {#, Length@ # + 1} &, {1}, 192]}, Table[s[[i]], {i, 1, Floor[Length[s]/2], 2}]] (* Michael De Vlieger, Mar 10 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|