A188131 Primes p == 1 (mod 4) such that 6p+1 is prime.

5, 13, 17, 37, 61, 73, 101, 137, 173, 181, 233, 241, 257, 277, 293, 313, 373, 397, 461, 557, 577, 593, 601, 641, 653, 661, 761, 773, 797, 853, 937, 941, 1013, 1033, 1061, 1117, 1193, 1201, 1321, 1361, 1381, 1433, 1453, 1481, 1553, 1613, 1693, 1733, 1777, 1873, 1973, 1993

Offset: 1

Author

M. F. Hasler, Mar 21 2011

Keywords

• nonn

Comments

Contains A188130 as a subsequence.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A188130.

Programs

Mathematica

Select[Range[1, 2000, 4], PrimeQ[#] && PrimeQ[6# + 1] &] (* Amiram Eldar, Nov 13 2019 *)

PARI

forprime(p=1,1e5, p%4==1 & isprime(p*6+1) & print1(p", "))