login
A106061
Primes p such that 1*p + 10 and 10*p + 1 are primes.
1
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
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
KEYWORD
nonn
AUTHOR
Zak Seidov, May 07 2005
STATUS
approved