login
A376951
Characteristic polynomial of the Pappus graph: a(n) = (n-3)*n^4*(n+3)*(n^2-3)^6.
1
0, -512, -80, 0, 8649641728, 1133799040000, 45191047171248, 909911473891840, 11606509936046080, 106382489775763968, 758004524485390000, 4426707303695531008, 21997505178850901760, 95618498598830172160, 371276621337370572208, 1308990920184354240000, 4245218136262184992768, 12798230144932688135680
OFFSET
0,2
LINKS
Eric Weisstein's World of Mathematics, Pappus Graph.
Wikipedia, Pappus graph.
Wolframalpha, Pappus graph.
Index entries for linear recurrences with constant coefficients, signature (19,-171,969,-3876,11628,-27132,50388,-75582,92378,-92378,75582,-50388,27132,-11628,3876,-969,171,-19,1).
FORMULA
a(n) = (n-3)*n^4*(n+3)*(n^2-3)^6.
MATHEMATICA
Table[n^4*(n^2 - 9)*(n^2 - 3)^6, {n, 0, 20}] (* Paolo Xausa, Dec 07 2024 *)
PROG
(Python)
a = lambda n: (n-3)*(n**4)*(n+3)*(n**2-3)**6
print([a(n) for n in range(0, 18)])
(PARI) a(n)=(n-3)*(n+3)*n^4*(n^2-3)^6 \\ Charles R Greathouse IV, Oct 12 2024
(Python)
def A376951(n): return (m:=n**2)**2*(m-9)*(m-3)**6 # Chai Wah Wu, Oct 12 2024
CROSSREFS
Cf. A110507.
Sequence in context: A095882 A351249 A190024 * A190033 A190025 A077743
KEYWORD
sign,easy
AUTHOR
Darío Clavijo, Oct 10 2024
STATUS
approved