A122051 - OEIS

%I #24 Dec 15 2022 08:46:58

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

%N A nonsense sequence.

%t p[n_] := p[n] = Cancel[Simplify[(x^(n - 2)*p[n - 2]*p[n - 3] + p[n - 3]*p[n - 4])/p[n - 6]]];

%t p[ -6] = 1; p[ -5] = 1; p[ -4] = 1; p[ -3] = 1; p[ -2] = 1; p[ -1] = 1;

%t Table[Exponent[p[n], x], {n, 0, 20}]

%t (* Note: the output of this program depends on the version of Mathematica and can differ from the Data. *)

%K dead

%O 1,5

%A _Roger L. Bagula_, Sep 13 2006

%E Edited by _Andrey Zabolotskiy_, Dec 14 2022