A019325 Cyclotomic polynomials at x=7.
7, 6, 8, 57, 50, 2801, 43, 137257, 2402, 117993, 2101, 329554457, 2353, 16148168401, 102943, 4956001, 5764802, 38771752331201, 117307, 1899815864228857, 5649505, 11898664849, 247165843, 4561457890013486057, 5762401, 79797014141614001, 12111126301, 1628413638264057
Offset: 0
Links
Programs
-
Maple
with(numtheory,cyclotomic); f := n->subs(x=7,cyclotomic(n,x)); seq(f(i),i=0..64);
-
Mathematica
Join[{7}, Cyclotomic[Range[50], 7]] (* Paolo Xausa, Feb 26 2024 *)
-
PARI
a(n) = if(n==0, 7, polcyclo(n, 7)); \\ Michel Marcus, Dec 16 2017
Extensions
More terms from Michel Marcus, Dec 17 2017
Comments