login
A188131
Primes p == 1 (mod 4) such that 6p+1 is prime.
2
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,1
COMMENTS
Contains A188130 as a subsequence.
LINKS
MATHEMATICA
Select[Range[1, 2000, 4], PrimeQ[#] && PrimeQ[6# + 1] &] (* Amiram Eldar, Nov 13 2019 *)
PROG
(PARI) forprime(p=1, 1e5, p%4==1 & isprime(p*6+1) & print1(p", "))
CROSSREFS
Cf. A188130.
Sequence in context: A053028 A189411 A248980 * A172459 A084165 A120130
KEYWORD
nonn
AUTHOR
M. F. Hasler, Mar 21 2011
STATUS
approved