A126021 Primes p such that |100-p|, |1000-p|, |10000-p| and |100000-p| are also primes.

71, 281, 743, 827, 1151, 1163, 1193, 1571, 1877, 3221, 3671, 7703, 9719, 9929, 10433, 10601, 10613, 10739, 11789, 11831, 13163, 15683, 16661, 19181, 19433, 22739, 25439, 26981, 28211, 33911, 37997, 46691, 50123, 50177, 51131, 53189, 57527

Offset

1,1

Links

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

Example

71 is included because it is prime and (100-71) and (1000-71) and (10000-71) and (100000-71) are also primes.

Maple

select(p-> andmap(j-> isprime(abs(10^j-p)), [$2..5]),
[seq(ithprime(i), i=1..10000)])[];  # Alois P. Heinz, Aug 28 2019

Mathematica

Select[Prime[Range[10000]], And @@ PrimeQ /@{100-#, 1000-#, 10000-#, 100000-#}&]
Select[Prime[Range[6000]], AllTrue[Abs[10^Range[2, 5]-#], PrimeQ]&] (* Harvey P. Dale, May 25 2023 *)

Prog

(Magma) [p: p in PrimesUpTo(70000)| IsPrime(100-p)and IsPrime(1000-p) and IsPrime(10000-p) and IsPrime(100000-p)] // Vincenzo Librandi, Jan 29 2011

Crossrefs

Cf. A000040, A101408.

Sequence in context: A140856 A114992 A158734 * A142548 A158738 A142143

Adjacent sequences: A126018 A126019 A126020 * A126022 A126023 A126024

Keyword

easy,less,nonn

Author

Harvey P. Dale, Feb 27 2007

Extensions

Name clarified by Peter Munn, Aug 23 2019

Status

approved