This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A076724 #13 Jan 07 2025 01:58:32
%S A076724 2,3,39,97,172,177,200,203,318,332,345,500,519,527,651,660,722,865,
%T A076724 870,881,890,897,1089,1091,1101,1106,1156,1177,1192,1205,1369,1370,
%U A076724 1393,1425,1459,1466,1499,1500,1503,1505,1517,1519,1703,1755,1779,1782,1786
%N A076724 Numbers m such that abs(Sum {k = 1..m} tau(k)) is a prime, where tau is the Ramanujan tau function (A000594).
%H A076724 Amiram Eldar, <a href="/A076724/b076724.txt">Table of n, a(n) for n = 1..10000</a>
%t A076724 s = 0; Do[s = s + RamanujanTau[n]; If[PrimeQ[s], Print[n]], {n, 1, 10^4}]
%t A076724 Flatten[Position[Accumulate[RamanujanTau[Range[0,1800]]],_?(PrimeQ[ #]&)]]-1 (* _Harvey P. Dale_, Dec 22 2015 *)
%o A076724 (PARI) list(lim) = {my(s = 0); for(k = 1, lim, s += ramanujantau(k); if(isprime(abs(s)), print1(k, ", ")));} \\ _Amiram Eldar_, Jan 06 2025
%Y A076724 Cf. A000594, A144248.
%K A076724 nonn
%O A076724 1,1
%A A076724 _Robert G. Wilson v_, Dec 30 2002
%E A076724 Name corrected by _Amiram Eldar_, Jan 06 2025