OFFSET
1,2
MATHEMATICA
DeleteDuplicates[Table[Count[Prime[n]+Prime[Range[n-1]]+1, _?PrimeQ], {n, 3000}], GreaterEqual]
CROSSREFS
KEYWORD
nonn
AUTHOR
Harvey P. Dale, Mar 03 2024
STATUS
approved