A122051 A nonsense sequence.

0, 0, 0, 1, 2, 4, 7, 11, 17, 24, 35, 48, 63, 87, 111, 154, 192, 242, 313, 395, 493

Offset

1,5

Links

Table of n, a(n) for n=1..21.

Mathematica

p[n_] := p[n] = Cancel[Simplify[(x^(n - 2)*p[n - 2]*p[n - 3] + p[n - 3]*p[n - 4])/p[n - 6]]];
p[ -6] = 1; p[ -5] = 1; p[ -4] = 1; p[ -3] = 1; p[ -2] = 1; p[ -1] = 1;
Table[Exponent[p[n], x], {n, 0, 20}]
(* Note: the output of this program depends on the version of Mathematica and can differ from the Data. *)

Crossrefs

Sequence in context: A175822 A078346 A301760 * A073471 A308825 A266901

Adjacent sequences: A122048 A122049 A122050 * A122052 A122053 A122054

Keyword

dead

Author

Roger L. Bagula, Sep 13 2006

Extensions

Edited by Andrey Zabolotskiy, Dec 14 2022

Status

approved