A219278 Numbers n such that ChebyshevT[16,n] is prime.

2, 13, 20, 21, 33, 74, 87, 88, 94, 104, 105, 127, 172, 182, 185, 188, 215, 224, 233, 240, 249, 258, 278, 281, 292, 293, 304, 329, 337, 365, 399, 416, 433, 440, 468, 471, 489, 502, 509, 529, 540, 573, 576, 583, 608, 612, 615, 622, 630, 631, 639, 685, 689, 707

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

Cf. A144131, A144132, A219276, A219277.

Sequence in context: A007355 A339611 A105452 * A099419 A061871 A182459

Adjacent sequences: A219275 A219276 A219277 * A219279 A219280 A219281

Keyword

nonn

Author

Michel Lagneau, Nov 17 2012

Status

approved