|
|
A129095
|
|
Semi-Pell numbers: a(n) = a(n/2) (n even), a(n) = 2*a(n-1) + a(n-2) (n odd >1), with a(1) = 1.
|
|
5
|
|
|
1, 1, 3, 1, 5, 3, 11, 1, 13, 5, 23, 3, 29, 11, 51, 1, 53, 13, 79, 5, 89, 23, 135, 3, 141, 29, 199, 11, 221, 51, 323, 1, 325, 53, 431, 13, 457, 79, 615, 5, 625, 89, 803, 23, 849, 135, 1119, 3, 1125, 141, 1407, 29, 1465, 199, 1863, 11, 1885, 221, 2327, 51, 2429, 323
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
Bisection A129096 is monotonically increasing.
|
|
LINKS
|
|
|
EXAMPLE
|
Terms may be arranged into an irregular-shaped triangle:
1;
1, 3;
1, 5, 3, 11;
1, 13, 5, 23, 3, 29, 11, 51;
1, 53, 13, 79, 5, 89, 23, 135, 3, 141, 29, 199, 11, 221, 51, 323;
...
where final terms of rows form A129097,
central terms are given by A129098,
|
|
MATHEMATICA
|
Nest[Append[#1, If[EvenQ[#2], #1[[#2/2]], 2 #1[[-1]] + #1[[-2]] ] ] & @@ {#, Length@ # + 1} &, {1}, 61] (* Michael De Vlieger, Mar 10 2020 *)
|
|
PROG
|
(PARI) a(n)=if(n==1 || n==0, 1, if(n%2==0, a(n/2), 2*a(n-1)+a(n-2)))
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|