|
|
A019325
|
|
Cyclotomic polynomials at x=7.
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
Sequence has a(0) = x; see comments in A020501.
|
|
LINKS
|
|
|
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 *)
|
|
PROG
|
(PARI) a(n) = if(n==0, 7, polcyclo(n, 7)); \\ Michel Marcus, Dec 16 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|