OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ki Punches, Feb 20 2009
EXTENSIONS
List corrected by Ki Punches, Feb 24 2009
STATUS
approved