A131592 - OEIS

%I #12 Jul 01 2024 02:35:08

%S 4,4,87,86606,204330315,792563962432,4719861842243387,

%T 41451006295401961098,518092272952383680058459,

%U 8925618852825931358421021092,206076219788796447007218742841043

%N Sum of the squares of the first n^n primes.

%C Define 0^0 = 1 for this sequence.

%F a(n) = A024450(A000312(n)). - _Amiram Eldar_, Jul 01 2024

%e The sum of the squares of the first 2^2 primes is a(2) = 4 + 9 + 25 + 49 = 87.

%t Join[{4},Table[Total[Prime[Range[n^n]]^2],{n,7}]] (* _Harvey P. Dale_, Jun 13 2016 *)

%o (PARI) sumprimesq(n) = { local(x,y,s,a); for(y=0,n, s=0; for(x=1,y^y, s+=prime(x)^2; ); print1(s","); ) }

%o (PARI) lista(pmax) = {my(s = 0, k = 0, n = 1, nn = 1); print1(4, ", "); forprime(p = 2, pmax, k++; s += p^2; if(k == nn, print1(s, ", "); n++; nn = n^n));} \\ _Amiram Eldar_, Jul 01 2024

%Y Cf. A000312, A024450.

%K nonn,more

%O 0,1

%A _Cino Hilliard_, Aug 30 2007

%E a(7) from _Harvey P. Dale_, Jun 13 2016

%E a(8)-a(10) from _Amiram Eldar_, Jul 01 2024