A046896 Square elements of A046895.

1, 9, 3969, 5041, 9409, 89401, 35010889, 478953225, 741091729, 282110761881, 370672751241, 1930979822409, 5548799536921, 6445713623281, 81193957971361

Offset: 0

Author

Vinay Vaishampayan and N. J. A. Sloane

Keywords

• nonn
• easy
• nice

Comments

No other terms in first 200000 terms of A046895, though sequence is believed to be infinite.

No other terms in first 8000000 terms of A046895. - T. D. Noe, Mar 11 2009

Crossrefs

Cf. A046895.

Programs

Mathematica

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 *)

Extensions

Extended by T. D. Noe, Mar 11 2009