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,1

Links

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

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 *)

Prog

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

Crossrefs

Cf. A023203.

Sequence in context: A103521 A103966 A023237 * A155703 A023217 A106077

Adjacent sequences: A106058 A106059 A106060 * A106062 A106063 A106064

Keyword

nonn

Author

Zak Seidov, May 07 2005

Status

approved