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

Cf. A005124, A007520.

Sequence in context: A092059 A260388 A169586 * A176983 A160676 A169690

Adjacent sequences: A023226 A023227 A023228 * A023230 A023231 A023232

Keyword

nonn,easy

Author

David W. Wilson

Status

approved