A060889 n^8-n^7+n^5-n^4+n^3-n+1.

1, 1, 151, 4561, 49981, 315121, 1406371, 4956001, 14709241, 38316961, 90090991, 195019441, 394379701, 753327121, 1370877691, 2392743361, 4027518961, 6566760001, 10409530951, 16092043921, 24323047981, 36025669681, 52386445651

Offset

0,3

Comments

a(n) = Phi_15(n) where Phi_k is the k-th cyclotomic polynomial.

Links

Harry J. Smith, Table of n, a(n) for n=0..1000

Index to values of cyclotomic polynomials of integer argument

Index entries for linear recurrences with constant coefficients, signature (9, -36, 84, -126, 126, -84, 36, -9, 1).

Formula

G.f.: (1-8*x+178*x^2+3154*x^3+14410*x^4+16804*x^5+5458*x^6+322*x^7+x^8)/ (1-x)^9. [Colin Barker, Apr 21 2012]

Maple

A060889 := proc(n)
        numtheory[cyclotomic](15, n) ;
end proc:
seq(A060889(n), n=0..20) ; # R. J. Mathar, Feb 11 2014

Mathematica

Cyclotomic[15, Range[0, 30]] (* Paolo Xausa, Feb 26 2024 *)

Prog

(PARI) { for (n=0, 1000, write("b060889.txt", n, " ", n^8 - n^7 + n^5 - n^4 + n^3 - n + 1); ) } \\ Harry J. Smith, Jul 14 2009

Crossrefs

Sequence in context: A211555 A143012 A250375 * A206362 A200934 A174759

Adjacent sequences: A060886 A060887 A060888 * A060890 A060891 A060892

Keyword

nonn,easy

Author

N. J. A. Sloane, May 05 2001

Status

approved