A023229 Primes p such that 8*p + 3 is also prime.

2, 5, 7, 13, 17, 31, 41, 43, 47, 61, 71, 73, 101, 103, 107, 113, 127, 131, 157, 163, 181, 191, 197, 223, 233, 241, 251, 281, 283, 293, 307, 317, 337, 367, 383, 421, 433, 443, 457, 461, 467, 491, 503, 563, 631, 643, 647, 653, 673, 677, 691, 733, 751, 761, 787, 797, 811

Offset: 1

Author

David W. Wilson

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A005124, A007520.

Programs

Magma

[n: n in PrimesUpTo(1000) | IsPrime(8*n+3)]; // Vincenzo Librandi, Nov 20 2010

Maple

a := proc (n) if isprime(n) = true and isprime(8*n+3) = true then n else end if end proc: seq(a(n), n = 1 .. 900); # Emeric Deutsch, Dec 26 2008

Mathematica

Select[Prime@Range@500, PrimeQ[8 # + 3] &] (* Vincenzo Librandi, May 19 2014 *)