A116585 An interleaving of three sequences: a(3n) = A000045(3n) = A014445(n). a(3n+1) = A000931(3n+5) = A052921(n). a(3n+2) = A003269(3n-1).

0, 1, 1, 2, 2, 2, 8, 4, 5, 34, 9, 14, 144, 21, 36, 610, 49, 95, 2584, 114, 250, 10946, 265, 657, 46368, 616, 1728, 196418, 1432, 4544, 832040, 3329, 11949, 3524578, 7739, 31422, 14930352, 17991, 82629, 63245986, 41824, 217286, 267914296, 97229, 571388, 1134903170

Offset: 0

Author

Roger L. Bagula, Mar 26 2006

Keywords

• nonn
• easy

Links

• Eric Weisstein's World of Mathematics, Pisot Number.
• Index entries for linear recurrences with constant coefficients, signature (0,0,8,0,0,-17,0,0,1,0,0,11,0,0,15,0,0,2,0,0,3,0,0,5,0,0,1).

Crossrefs

Cf. A000045, A000073, A000931, A003269, A014445, A017898, A052921.

Programs

Mathematica

a[1, 0] = 0; a[1, 1] = 1; a[1, n_Integer?Positive] := a[1, n] = a[1, n - 1] + a[1, n - 2] a[2, 0] = 0; a[2, 1] = 1; a[2, 2] = 1; a[2, n_Integer?Positive] := a[2, n] = a[2, n - 2] + a[2, n - 3] a[3, 0] = 0; a[3, 1] = a[3, 2] = a[3, 3] = 1; a[3, n_Integer?Positive] := a[3, n] = a[3, n - 1] + a[3, n - 4] b = Table[a[1 + Mod[n, 3], n], {n, 0, 25}]

Extensions

Edited by N. J. A. Sloane, Apr 09 2008

More terms from Amiram Eldar, Jun 09 2025