A136191 Primes p such that 2p-3 and 2p+3 are both prime (A092110), with last decimal being 3.
13, 43, 53, 113, 193, 223, 283, 563, 613, 643, 743, 773, 1033, 1193, 1453, 1483, 1543, 1583, 1663, 1733, 2143, 2393, 2503, 2843, 3163, 3413, 3433, 3793, 3823, 4133, 4463, 4483, 4523, 4603, 4673, 4813, 5443, 5743, 5953, 6073, 6133, 6163, 6553, 6733, 6863
Offset: 1
Programs
-
Mathematica
Select[Prime[Range[1000]],AllTrue[{2#-3,2#+3},PrimeQ]&&IntegerDigits[#][[-1]]==3&] (* James C. McMahon, Apr 30 2025 *)
-
PARI
isok(n) = (n % 10 == 3) && isprime(n) && isprime(2*n-3) && isprime(2*n+3); \\ Michel Marcus, Sep 02 2013
Comments