|
%I #10 Apr 27 2020 17:34:59
%S 97,577,4801,32257,79201,305761,665857,1039681,7380481,8380417,
%T 10681441,11995201,18495361,42448897,49980001,54100801,63101377,
%U 68001121,96911041,110736961,227143297,266851201,296071777,398240641,479694337
%N Primes of the form T_4(n), where T_4(x) = 8x^4 - 8x^2 + 1 is the fourth Chebyshev polynomial (of the first kind).
%C Sequence is infinite under Bunyakovsky's conjecture. - _Charles R Greathouse IV_, May 29 2013
%H Robert Israel, <a href="/A144131/b144131.txt">Table of n, a(n) for n = 1..10000</a>
%p T4:= unapply(orthopoly[T](4,x),x):
%p select(isprime, map(T4, [$0..300])); # _Robert Israel_, Apr 27 2020
%t lst={};Do[p=ChebyshevT[4,n];If[PrimeQ[p],AppendTo[lst,p]],{n,9^3}];lst
%o (PARI) select(isprime,vector(100,n,polchebyshev(4,1,n))) \\ _Charles R Greathouse IV_, May 29 2013
%Y Cf. A144130.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Sep 11 2008
|
