

A198384


First of a triple of squares in arithmetic progression.


15



1, 4, 49, 9, 49, 16, 289, 196, 25, 1, 36, 196, 529, 49, 961, 441, 64, 1156, 81, 784, 441, 100, 2401, 289, 121, 2209, 4, 144, 1225, 529, 169, 784, 2601, 2116, 5041, 196, 3844, 1764, 49, 225, 256, 1681, 1225, 289, 1681, 2401, 6241, 9, 4624, 324, 9409, 361
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS



FORMULA



MATHEMATICA

wmax = 1000;
triples[w_] := Reap[Module[{u, v}, For[u = 1, u < w, u++, If[IntegerQ[v = Sqrt[(u^2 + w^2)/2]], Sow[{u^2, v^2, w^2}]]]]][[2]];


PROG

(Haskell)
a198384 n = a198384_list !! (n1)
a198384_list = map (^ 2) a198388_list


CROSSREFS



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



