|
%I #33 Feb 26 2024 09:14:39
%S 7,6,8,57,50,2801,43,137257,2402,117993,2101,329554457,2353,
%T 16148168401,102943,4956001,5764802,38771752331201,117307,
%U 1899815864228857,5649505,11898664849,247165843,4561457890013486057,5762401,79797014141614001,12111126301,1628413638264057
%N Cyclotomic polynomials at x=7.
%C Sequence has a(0) = x; see comments in A020501.
%H Robert Israel, <a href="/A019325/b019325.txt">Table of n, a(n) for n = 0..1186</a>
%H <a href="/index/Cy#CyclotomicPolynomialsValuesAtX">Index entries for cyclotomic polynomials, values at X</a>
%p with(numtheory,cyclotomic); f := n->subs(x=7,cyclotomic(n,x)); seq(f(i),i=0..64);
%t Join[{7}, Cyclotomic[Range[50], 7]] (* _Paolo Xausa_, Feb 26 2024 *)
%o (PARI) a(n) = if(n==0, 7, polcyclo(n, 7)); \\ _Michel Marcus_, Dec 16 2017
%Y Cf. A019320, A019321, A019322, A019323, A019324.
%K nonn,look
%O 0,1
%A _Simon Plouffe_
%E More terms from _Michel Marcus_, Dec 17 2017
|
