A129746 Numbers k such that the sum of the first k primes with the final digit 3 is prime.

1, 13, 67, 83, 133, 137, 139, 143, 147, 157, 187, 197, 199, 201, 211, 213, 229, 259, 273, 279, 283, 293, 319, 323, 333, 339, 359, 367, 369, 377, 391, 393, 401, 411, 441, 451, 459, 463, 467, 491, 501, 503, 509, 523, 529, 533, 551, 559, 561, 579, 593, 599, 619

Offset

1,2

Links

Table of n, a(n) for n=1..53.

Mathematica

lim=2500; p3=Select[Prime[Range[lim]], Mod[#, 10]==3&]; l2=Length[p3]; Select[Range[l2], PrimeQ[Accumulate[p3][[#]]]&] (* James C. McMahon, Feb 01 2025 *)

Crossrefs

Sequence in context: A109727 A041320 A058380 * A067863 A257809 A106975

Adjacent sequences: A129743 A129744 A129745 * A129747 A129748 A129749

Keyword

easy,base,less,nonn,changed

Author

Tomas Xordan, May 14 2007

Status

approved