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 A228102 #12 Apr 02 2024 12:55:15
%S A228102 2,3,4,7,8,9,10,13,14,15,16,37,38,39,40,43,44,45,46,281,282,311,312,
%T A228102 503,504,505,506,507,508,541,542,543,544,545,546,557,558,559,560,561,
%U A228102 562,593,594,595,596,597,598,619,620,621,622,623,624,625
%N A228102 Numbers n such that sum of all primes <=n is prime.
%C A228102 Numbers n such that A034387(n) is prime.
%H A228102 Jayanta Basu, <a href="/A228102/b228102.txt">Table of n, a(n) for n = 1..1000</a>
%e A228102 8 is in the sequence since 2+3+5+7=17 is prime.
%t A228102 t = {}; s = 0; Do[If[PrimeQ[n], s += n]; If[PrimeQ[s], AppendTo[t, n]], {n, 625}]; t
%t A228102 Position[Accumulate[Table[If[PrimeQ[n],n,0],{n,700}]],_?PrimeQ]//Flatten (* _Harvey P. Dale_, Apr 02 2024 *)
%o A228102 (Magma) [n: n in [1..700] | IsPrime(s) where s is &+PrimesUpTo(n)]; // _Bruno Berselli_, Aug 10 2013
%Y A228102 Cf. A034387.
%K A228102 nonn
%O A228102 1,1
%A A228102 _Jayanta Basu_, Aug 10 2013