cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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.

Original entry on oeis.org

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
Offset: 1

Views

Author

Paul D. Hanna, Apr 11 2007

Keywords

Comments

Bisection A129096 is monotonically increasing.

Examples

			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,
and row sums are equal to A129099.
		

Crossrefs

Cf. A030067 (semi-Fibonacci), A074364 (semi-tribonacci).

Programs

  • 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 *)
  • PARI
    a(n)=if(n==1 || n==0,1,if(n%2==0,a(n/2),2*a(n-1)+a(n-2)))