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 A122207 #6 Jul 20 2024 12:27:22
%S A122207 2,17,8893,24133,768373,1583293,2180741,3875933,6426919,173472547,
%T A122207 289093219,741938801,2738357903,2895147163,3058653607,17056871941,
%U A122207 24109439269,26602406177,29286422621,62073696299,65420584637,68902997299
%N A122207 Primes of the form A109724[n] = A007504[n^2] or the sum of the first n^2 primes.
%C A122207 Numbers n such that A109724[n] = A007504[n^2] is a prime are listed in A122208[n] = {1,2,8,10,22,26,28,32,36,78,88,110,150,152,154,...}.
%H A122207 Ray Chandler, <a href="/A122207/b122207.txt">Table of n, a(n) for n = 1..1000</a>
%F A122207 a(n) = A109724[ A122208[n] ] = A007504[ A122208[n]^2 ].
%e A122207 Prime 17 = 2 + 3 + 5 + 7 = a(2) is equal to the sum of the first 4 = 2^2 primes.
%e A122207 Prime 24133 = a(4) is equal to sum of the first 100 = 10^2 primes.
%t A122207 s=0;Do[s=Sum[Prime[k],{k,1,n^2}];If[PrimeQ[s],Print[{n,n^2,s}]],{n,1,154}]
%t A122207 Select[Table[Total[Prime[Range[n^2]]],{n,500}],PrimeQ] (* _Harvey P. Dale_, Jul 20 2024 *)
%Y A122207 Cf. A122208, A109724, A007504.
%K A122207 nonn
%O A122207 1,1
%A A122207 _Alexander Adamchuk_, Aug 25 2006
%E A122207 More terms from _Ray Chandler_, Dec 02 2018