login
A098748
a(n) = floor((n^4-n^3-1)/(n^2-n-1)).
0
1, 1, 7, 10, 17, 26, 37, 50, 65, 82, 101, 122, 145, 170, 197, 226, 257, 290, 325, 362, 401, 442, 485, 530, 577, 626, 677, 730, 785, 842, 901, 962, 1025, 1090, 1157, 1226, 1297, 1370, 1445, 1522, 1601, 1682, 1765, 1850, 1937, 2026, 2117, 2210, 2305, 2402, 2501
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
Sequence in context: A299997 A299987 A192273 * A020692 A124187 A328117
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 01 2004
STATUS
approved