A129747 Numbers n such that the sum of the first n primes with the final digit 7 is prime.
1, 3, 7, 9, 11, 17, 31, 43, 63, 77, 81, 101, 109, 111, 117, 123, 127, 137, 147, 149, 153, 157, 161, 167, 171, 193, 199, 231, 233, 241, 243, 281, 311, 317, 321, 327, 329, 347, 367, 393, 421, 433, 439, 443, 483, 499, 531, 587, 591, 611, 619, 621, 623, 679, 683
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Position[Accumulate[Select[Prime[Range[3000]],Mod[#,10]==7&]],?(PrimeQ[ #]&)]//Flatten (* _Harvey P. Dale, Dec 27 2021 *)