|
%I #18 May 14 2022 11:24:28
%S 16033,16787,18013,23719,24281,29101,32749,33247,33679,33997,37747,
%T 38501,40063,40387,42533,42611,44417,46957,51109,51383,53479,54217,
%U 55291,55763,56333,56569,58271,58511,58831,59833,61441,61781,62273,66137,66271,69593,69623
%N Prime numbers with gaps larger than 20 towards both neighboring primes.
%C Subsequence of A163111.
%H Harvey P. Dale, <a href="/A163112/b163112.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>
%F {A000040(i) : A001223(i) > 20 and A001223(i-1) > 20}. - _R. J. Mathar_, Jul 27 2009
%p 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
%t Select[Partition[Prime[Range[7000]],3,1],Min[Differences[#]]>20&] [[All, 2]] (* _Harvey P. Dale_, Mar 16 2017 *)
%Y Cf. A137875, A137874, A137873, A137872, A137871, A163111.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jul 20 2009
%E Definition rephrased by _R. J. Mathar_, Jul 27 2009
|
