A271575 Primes p such that p+10, p+100 and p+1000 are all prime.

13, 31, 97, 163, 181, 283, 409, 499, 709, 787, 811, 877, 1087, 1399, 1423, 1609, 1777, 1801, 1879, 2347, 2677, 2719, 3457, 3517, 3919, 4273, 4483, 5701, 6043, 6121, 6211, 6481, 6691, 7573, 8941, 9733, 9739, 10069, 10093, 10159, 10243, 10789, 11161, 11251, 11689, 12799, 12907

Offset

1,1

Comments

Number of terms < 10^k: 0, 3, 12, 37, 159, 789, 3960, 21708, 129910, ..., . - Robert G. Wilson v, Jun 20 2018

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

p=13; p+10=23 (is prime), p+100=113 (is prime), p+1000=1013 (is prime).

Maple

select(t -> isprime(t+1000) and isprime(t+100) and isprime(t+10) and isprime(t), [seq(i, i=7..20000, 6)]); # Robert Israel, Jun 20 2018

Mathematica

Select[Prime[Range[10000]], PrimeQ[# + 10] && PrimeQ[# + 100] && PrimeQ[# + 1000] &] (* Robert Price, Apr 10 2016 *)

Prog

(PARI) lista(nn) = forprime(p=2, nn, if (isprime(p+10) && isprime(p+100) && isprime(p+1000), print1(p, ", "))); \\ Michel Marcus, Apr 10 2016

Crossrefs

Cf. A000040, A002385, A015916, A023203.

Sequence in context: A095379 A350095 A160772 * A039403 A062339 A368051

Adjacent sequences: A271572 A271573 A271574 * A271576 A271577 A271578

Keyword

nonn

Author

Emre APARI, Apr 10 2016

Status

approved