|
%I #16 Jan 18 2022 00:51:50
%S 1,9,3969,5041,9409,89401,35010889,478953225,741091729,282110761881,
%T 370672751241,1930979822409,5548799536921,6445713623281,81193957971361
%N Square elements of A046895.
%C No other terms in first 200000 terms of A046895, though sequence is believed to be infinite.
%C No other terms in first 8000000 terms of A046895. - _T. D. Noe_, Mar 11 2009
%t s = 0; Reap[ Do[s = s + SquaresR[4, n]; If[IntegerQ[Sqrt[s]], Print[{n, s}]; Sow[s]], {n, 0, 5*10^6}]][[2, 1]] (* _Jean-François Alcover_, Jul 02 2012 *)
%Y Cf. A046895.
%K nonn,easy,nice
%O 0,2
%A _Vinay Vaishampayan_ and _N. J. A. Sloane_
%E Extended by _T. D. Noe_, Mar 11 2009
|
