A118915 Primes p such that (p^2 + 5)/6 is prime.
5, 13, 19, 23, 37, 41, 89, 113, 127, 131, 139, 149, 167, 197, 229, 233, 239, 251, 271, 359, 373, 401, 433, 449, 463, 503, 523, 541, 607, 631, 643, 653, 701, 719, 743, 769, 811, 827, 877, 881, 887, 919, 967, 971, 1009, 1013, 1021, 1093, 1097, 1283, 1301
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
Select[Prime[Range[215]],PrimeQ[(#^2+5)/6]&] (* James C. McMahon, Sep 13 2024 *)
-
PARI
isA118915(n)=if(n^2%6==1,isprime(n)&&isprime((n^2+5)/6),0) \\ Michael B. Porter, Apr 14 2010
Comments