OFFSET
1,1
COMMENTS
ChebyshevT[16,x] is the 16th Chebyshev polynomial of the first kind evaluated at x.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
P:= unapply(orthopoly[T](16, x), x):
select(isprime @ P, [$1..1000]); # Robert Israel, Aug 13 2018
MATHEMATICA
lst={}; Do[If[PrimeQ[ChebyshevT [16, n]], AppendTo[lst, n]], {n, 10^3}]; lst
Select[Range[800], PrimeQ[ChebyshevT[16, #]]&] (* Harvey P. Dale, Jan 23 2016 *)
PROG
(PARI) is(n)=ispseudoprime(polchebyshev(16, 1, n)) \\ Charles R Greathouse IV, May 22 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Nov 17 2012
STATUS
approved