1,1

No more terms through 10^4.

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

Cf. A119529.

Sequence in context: A067269 A071299 A061380 this_sequence A124266 A137941 A077170

Adjacent sequences: A125564 A125565 A125566 this_sequence A125568 A125569 A125570

hard,more,nonn

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