|
%I #15 Feb 26 2024 09:16:54
%S 4,3,5,21,17,341,13,5461,257,4161,205,1398101,241,22369621,3277,49981,
%T 65537,5726623061,4033,91625968981,61681,12783421,838861,
%U 23456248059221,65281,1100586419201,13421773,68719738881
%N Cyclotomic polynomials at x=4.
%H Paolo Xausa, <a href="/A019322/b019322.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Cy#CyclotomicPolynomialsValuesAtX">Index entries for cyclotomic polynomials, values at X</a>
%p with(numtheory,cyclotomic); f := n->subs(x=4,cyclotomic(n,x)); seq(f(i),i=0..64);
%t Join[{4}, Cyclotomic[Range[50], 4]] (* _Paolo Xausa_, Feb 26 2024 *)
%K nonn
%O 0,1
%A _Simon Plouffe_
|
