A219279 Primes of the form ChebyshevT[16,n].
708158977, 21293229181234844660737, 21260958687099552174028801, 46453251497945783267589121, 64576903826545426454350012417, 26475257580698876650533675799180801, 352799899930156494230719582325262337, 423592588581159655917184553299009537
Offset: 1
Keywords
Crossrefs
Cf. A219278.
Programs
-
Mathematica
lst={}; Do[p=Abs[ChebyshevT[16, n]]; If[PrimeQ[p], AppendTo[lst, p]], {n, 10^3}]; lst Select[ChebyshevT[16,Range[250]],PrimeQ] (* Harvey P. Dale, May 06 2013 *)
Comments