|
|
A060891
|
|
a(n) = n^6 - n^3 + 1.
|
|
5
|
|
|
1, 1, 57, 703, 4033, 15501, 46441, 117307, 261633, 530713, 999001, 1770231, 2984257, 4824613, 7526793, 11387251, 16773121, 24132657, 34006393, 47039023, 63992001, 85756861, 113369257, 148023723, 191089153, 244125001, 308898201
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
a(n) = Phi_18(n) where Phi_k(x) is the k-th cyclotomic polynomial.
|
|
LINKS
|
|
|
FORMULA
|
G.f.: (1-6*x+71*x^2+290*x^3+309*x^4+52*x^5+3*x^6)/(1-x)^7. [Colin Barker, Apr 22 2012]
|
|
MAPLE
|
with (combinat):seq(fibonacci(3, n^3)-n^3, n=0..30); # Zerinvary Lajos, May 25 2008
# Alternative
numtheory[cyclotomic](18, n) ;
end proc:
|
|
MATHEMATICA
|
Array[#^6 - #^3 + 1 &, 51, 0] (* or *)
Cyclotomic[18, Range[0, 50]] (* Paolo Xausa, Feb 26 2024 *)
|
|
PROG
|
(PARI) { for (n=0, 1000, write("b060891.txt", n, " ", n^6 - n^3 + 1); ) } \\ Harry J. Smith, Jul 14 2009
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|