A023229 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

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 *)

PROG

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

CROSSREFS