A106061 Primes p such that 1*p + 10 and 10*p + 1 are primes.

3, 7, 13, 19, 31, 43, 97, 103, 157, 181, 241, 271, 337, 349, 409, 421, 439, 547, 631, 691, 733, 811, 829, 937, 1009, 1021, 1039, 1249, 1279, 1291, 1483, 1489, 1597, 1609, 1723, 1867, 2203, 2287, 2383, 2437, 2467, 2539, 2689, 2719, 2887, 2953, 3001, 3109, 3319

Offset: 1

Author

Zak Seidov, May 07 2005

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A023203.

Programs

Magma

[p: p in PrimesUpTo(100000)| IsPrime(p+10) and IsPrime(10*p+1)]; // Vincenzo Librandi, Nov 13 2010

Mathematica

Select[Prime[Range[220]], PrimeQ[10#+1]&&PrimeQ[1#+10]&]
Select[Prime[Range[500]],AllTrue[{10#+1,#+10},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jun 15 2017 *)