A023233 Primes p such that 9*p + 2 is also prime.

3, 5, 11, 19, 29, 31, 43, 53, 71, 73, 101, 103, 109, 113, 131, 151, 173, 179, 191, 211, 229, 233, 239, 269, 271, 281, 283, 311, 313, 373, 379, 383, 431, 443, 491, 499, 509, 521, 541, 599, 613, 619, 653, 691, 701, 719, 733, 739, 743, 751, 773, 809, 883, 919, 929, 971, 983

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Links

• John Cerkan, Table of n, a(n) for n = 1..10000

Programs

Magma

[n: n in [0..1000] | IsPrime(n) and IsPrime(9*n+2)] // Vincenzo Librandi, Nov 20 2010

Maple

A023233:=n->`if`(isprime(n) and isprime(9*n+2), n, NULL): seq(A023233(n), n=1..10^3); # Wesley Ivan Hurt, Sep 08 2016

Mathematica

Select[Prime[Range[200]], PrimeQ[9#+2]&] (* Harvey P. Dale, Dec 02 2010 *)