%I #4 Jun 13 2016 11:20:51
%S 4,4,87,86606,204330315,792563962432,4719861842243387,
%T 41451006295401961098
%N Sum of the squares of the first n^n primes.
%F Define 0^0 = 1 for this sequence.
%e The sum of the squares of the first 2^2 primes = 4+9+25+49 = 87, the third entry in the sequence.
%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","); ) }
%K nonn
%O 0,1
%A _Cino Hilliard_, Aug 30 2007
%E One additional term (a(7)) added by _Harvey P. Dale_, Jun 13 2016
|