OFFSET
1,1
MATHEMATICA
Needs["NumberTheory`Ramanujan`"]; s = 0; Do[s = s + RamanujanTau[n]; If[PrimeQ[s], Print[n]], {n, 1, 10^4}]
Flatten[Position[Accumulate[RamanujanTau[Range[0, 1800]]], _?(PrimeQ[ #]&)]]-1 (* Harvey P. Dale, Dec 22 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 30 2002
STATUS
approved