OFFSET
1,2
MATHEMATICA
Position[Accumulate[Select[Prime[Range[5000]], Last[ IntegerDigits[#]] == 9&]], _?PrimeQ]//Flatten (* Harvey P. Dale, Aug 23 2017 *)
CROSSREFS
KEYWORD
easy,base,less,nonn
AUTHOR
Tomas Xordan, May 14 2007
STATUS
approved