A100750 Primes p such that p-100 or p+100 (or both) is prime.
3, 7, 13, 31, 37, 67, 73, 79, 97, 103, 107, 113, 127, 131, 137, 139, 151, 157, 163, 167, 173, 179, 181, 193, 197, 211, 227, 239, 251, 257, 263, 281, 283, 293, 311, 331, 349, 367, 379, 383, 409, 421, 431, 449, 457, 463, 467, 479, 487, 499, 509, 521, 541, 547
Offset: 1
Keywords
Examples
Primes 3 and 103 differ by 100 Primes 193 and 293 differ by 100
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[ Prime[ Range[101]], # > 100 && PrimeQ[ # - 100] || PrimeQ[ # + 100] &] (* Robert G. Wilson v, Jan 14 2005 *)
Extensions
Corrected and extended by Robert G. Wilson v, Jan 14 2005