OFFSET
0,3
MATHEMATICA
(* polynomial sequence with Theta1 to Fibonacci pattern*) digits=200 f[n_]=(n^4-n^3-1)/ (n^2-n-1) a=Table[Floor[f[n]], {n, 0, digits}]
PROG
(Magma) [Floor((n^4-n^3-1)/(n^2-n-1)) : n in [0..80]]; // Wesley Ivan Hurt, Apr 20 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 01 2004
STATUS
approved