A144134 Primes of the form GegenbauerC[n,2,3].

62527434837271029229

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Sep 11 2008

Keywords

• nonn
• bref

Comments

No other terms < 10^10000. - Robert Israel, Apr 27 2020

Links

• Index entries for one-term sequences

Crossrefs

Primes in A144133.

Programs

Maple

f:= gfun:-rectoproc({(-n - 3)*a(n + 3) + (24 + 6*n)*a(n + 2) + (-5 - n)*a(n + 1), a(0) = 1, a(1) = 12, a(2) = 106},a(n),remember):
select(isprime, map(f, [$0..4000])); # Robert Israel, Apr 27 2020

Mathematica

lst={};Do[p=GegenbauerC[n,2,3];If[PrimeQ[p],AppendTo[lst,p]],{n,15^3}];lst
Select[GegenbauerC[Range[25],2,3],PrimeQ] (* Harvey P. Dale, Dec 04 2022 *)