login
A023238
Primes p such that 10*p + 3 is also prime.
7
2, 5, 7, 11, 17, 19, 23, 29, 31, 37, 43, 59, 61, 67, 73, 101, 103, 109, 137, 149, 173, 191, 193, 197, 199, 211, 227, 229, 233, 239, 263, 269, 271, 283, 331, 337, 353, 359, 367, 373, 379, 383, 401, 409, 449, 467, 479, 499, 523, 541, 557, 569, 607, 613, 617, 647, 673, 683
OFFSET
1,1
MAPLE
A023238:=n->`if`(isprime(n) and isprime(10*n+3), n, NULL): seq(A023238(n), n=1..10^3); # Wesley Ivan Hurt, Sep 08 2016
MATHEMATICA
Select[Prime[Range[200]], PrimeQ[10# + 3] &] (* Alonso del Arte, Jun 24 2014 *)
PROG
(Magma) [n: n in [0..1000] | IsPrime(n) and IsPrime(10*n+3)] // Vincenzo Librandi, Nov 20 2010
CROSSREFS
Cf. A023239.
Subsequence of A102338.
Sequence in context: A089781 A144832 A309290 * A194991 A345667 A319596
KEYWORD
nonn
STATUS
approved