|
%I #13 Jan 30 2019 19:46:45
%S 302053,370949,448451,461717,480661,492113,507289,542371,561667,
%T 604189,619477,623171,645257,648563,668347,682819,710189,736577,
%U 745477,753257,783953,809629,815729,872863,873877,922169,948671,963581,979691
%N The second primes of two-prime centuries.
%H Harvey P. Dale, <a href="/A156999/b156999.txt">Table of n, a(n) for n = 1..1000</a>
%t NextPrime[#,2]&/@Select[100*Range[9800],PrimePi[#+100]-PrimePi[#]==2&] (* or *) NextPrime[100#,2]&/@Flatten[Position[ Partition[PrimePi[ 100*Range[ 9800]],2,1], _?(#[[2]]-#[[1]]==2&),1,Heads->False]] (* _Harvey P. Dale_, Jan 30 2019 *)
%K nonn
%O 1,1
%A _Ki Punches_, Feb 20 2009
%E List corrected by _Ki Punches_, Feb 24 2009
|
