|
%I #6 May 22 2017 12:35:26
%S 3,4,7,15,18,19,37,43,46,47,62,74,75,84,89,90,92,96,105,112,130,139,
%T 158,163,182,189,190,202,213,217,218,225,233,255,256,271,280,288,293,
%U 301,314,317,329,335,337,349,350,354,360,364,365,368,376,396,416,422
%N Numbers n such that ChebyshevT[8,n] is prime.
%C ChebyshevT[8,x] is the 8th Chebyshev polynomial of the first kind evaluated at x.
%C The corresponding primes are in A144132.
%t lst={}; Do[If[PrimeQ[ChebyshevT [8, n]], AppendTo[lst, n]], {n, 10^3}]; lst
%o (PARI) is(n)=ispseudoprime(polchebyshev(8,1,n)) \\ _Charles R Greathouse IV_, May 22 2017
%Y Cf. A144131, A144132.
%K nonn
%O 1,1
%A _Michel Lagneau_, Nov 17 2012
|
