A209623 Primes separated from their adjacent next primes by a prime number of successive composites.
7, 13, 19, 23, 31, 37, 43, 47, 53, 61, 67, 73, 79, 83, 89, 97, 103, 109, 113, 127, 131, 151, 157, 163, 167, 173, 193, 199, 211, 223, 229, 233, 251, 257, 263, 271, 277, 293, 307, 313, 317, 331, 349, 353, 359, 367, 373, 379, 383, 389, 397, 401, 433, 439, 443
Offset: 1
Keywords
Links
- K. D. Bajpai, Table of n, a(n) for n = 1..8000
Programs
-
Mathematica
Select[Prime[Range[100]], PrimeQ[NextPrime[#] - # - 1] &] (* T. D. Noe, Mar 12 2012 *)
Comments