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,1

Comments

Contains A188130 as a subsequence.

Links

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

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

Adjacent sequences: A188128 A188129 A188130 * A188132 A188133 A188134

Keyword

nonn

Author

M. F. Hasler, Mar 21 2011

Status

approved