A217655
Consider sets of 3 consecutive primes a
8917523, 17051707, 24662467, 25173593, 27001199, 37757639, 38089453, 42629173, 44310817, 67142137, 67816601, 76317653, 80517691, 82772143, 82843753, 83929789, 84980743, 90007363, 94905269, 99099773, 99524219, 117813307, 119401577, 129163457, 147426791, 162159887
Offset: 1
Keywords
Examples
a(1) = 8917523 because {8917463, 8917523, 8917663} is the first set of 3 consecutive primes a, b, c with c-a = 200.
Links
- Zak Seidov, Table of n, a(n) for n = 1..1000
- Zak Seidov, Table of n, a, b, c for n=1..1000
Programs
-
Maple
a :=2 : b := nextprime(a) : c := nextprime(b) : for i from 1 do if c-a= 200 then print(b); end if; a := b ; b := c ; c := nextprime(b) ; end do: # R. J. Mathar, Nov 07 2012 -
Mathematica
Select[Partition[Prime[Range[91*10^5]],3,1],#[[3]]-#[[1]]==200&][[;;,2]] (* Harvey P. Dale, Jul 17 2025 *)