A370867 Records in A224908.

0, 2, 3, 5, 7, 8, 11, 12, 14, 15, 19, 20, 24, 27, 32, 39, 44, 49, 50, 52, 56, 57, 66, 68, 87, 103, 109, 121, 127, 148, 152, 163, 197, 216, 235, 260, 283, 325, 356, 374, 395, 406, 437, 485, 488, 494, 566, 569, 617, 644, 658, 673, 747, 770, 774, 809, 820, 826

Offset: 1

Author

Harvey P. Dale, Mar 03 2024

Keywords

• nonn

Crossrefs

Cf. A224908.

Programs

Mathematica

DeleteDuplicates[Table[Count[Prime[n]+Prime[Range[n-1]]+1,_?PrimeQ],{n,3000}],GreaterEqual]