login
A112391
Primes p such that 23*p + 2 is also prime.
2
3, 7, 19, 37, 43, 67, 103, 157, 193, 277, 337, 367, 373, 379, 397, 439, 457, 463, 547, 607, 829, 859, 877, 919, 1009, 1033, 1039, 1117, 1129, 1213, 1249, 1297, 1429, 1543, 1579, 1627, 1657, 1699, 1723, 1759, 1783, 1789, 1867, 1993, 1999, 2053, 2083, 2089
OFFSET
1,1
LINKS
EXAMPLE
If p=277 then 23*p + 2 = 6373 (prime).
MATHEMATICA
Select[Prime[Range[400]], PrimeQ[23#+2]&] (* Harvey P. Dale, Sep 26 2021 *)
PROG
(PARI) forprime(p=2, 5000, if(isprime(23*p+2), print1(p, ", "))) // Lambert Herrgesell, Dec 09 2005
(Magma) [p: p in PrimesUpTo(3000)| IsPrime(23*p+2)] // Vincenzo Librandi, Jan 29 2011
CROSSREFS
Cf. A023208.
Sequence in context: A227502 A268065 A049490 * A127928 A298125 A047025
KEYWORD
nonn
AUTHOR
Parthasarathy Nambi, Dec 04 2005
EXTENSIONS
More terms from Lambert Herrgesell (zero815(AT)googlemail.com), Dec 09 2005
STATUS
approved