A163112 Prime numbers with gaps larger than 20 towards both neighboring primes.

16033, 16787, 18013, 23719, 24281, 29101, 32749, 33247, 33679, 33997, 37747, 38501, 40063, 40387, 42533, 42611, 44417, 46957, 51109, 51383, 53479, 54217, 55291, 55763, 56333, 56569, 58271, 58511, 58831, 59833, 61441, 61781, 62273, 66137, 66271, 69593, 69623

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jul 20 2009

Keywords

• nonn

Comments

Subsequence of A163111.

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..10000
• Index entries for primes, gaps between

Crossrefs

Cf. A137875, A137874, A137873, A137872, A137871, A163111.

Programs

Maple

p := 2; q := 3; r := 3; for n from 2 to 15000 do if q-p > 20 and r-q > 20 then printf("%d,",q) ; fi; p := q; q := r; r := nextprime(r) ; od: # R. J. Mathar, Jul 27 2009

Mathematica

Select[Partition[Prime[Range[7000]],3,1],Min[Differences[#]]>20&] [[All, 2]] (* Harvey P. Dale, Mar 16 2017 *)

Formula

{A000040(i) : A001223(i) > 20 and A001223(i-1) > 20}. - R. J. Mathar, Jul 27 2009

Extensions

Definition rephrased by R. J. Mathar, Jul 27 2009