|
|
A046896
|
|
Square elements of A046895.
|
|
0
|
|
|
1, 9, 3969, 5041, 9409, 89401, 35010889, 478953225, 741091729, 282110761881, 370672751241, 1930979822409, 5548799536921, 6445713623281, 81193957971361
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
No other terms in first 200000 terms of A046895, though sequence is believed to be infinite.
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,nice
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|