0,1

No more terms through 10^4.

s = 0; Do[s += (x-1)*5^(x-1)/5; If[PrimeQ[s], Print[x]], {x, 10^4}]

Cf. A119529.

Sequence in context: A119080 A119221 A119219 this_sequence A020681 A088338 A020890

Adjacent sequences: A125566 A125567 A125568 this_sequence A125570 A125571 A125572

hard,more,nonn

Ryan Propper (rpropper(AT)stanford.edu), Jan 01 2007