

A198387


Common differences in triples of squares in arithmetic progression.


11



24, 96, 120, 216, 240, 384, 336, 480, 600, 840, 864, 960, 840, 1176, 720, 1080, 1536, 1344, 1944, 1920, 2160, 2400, 1320, 2520, 2904, 2016, 3360, 3456, 3000, 3696, 4056, 3840, 3024, 3360, 2184, 4704, 2880, 4320, 5280, 5400, 6144, 5544, 6000, 6936, 6240, 5880
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


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]];
#[[2]]  #[[1]]& /@ Flatten[DeleteCases[triples /@ Range[wmax], {}] , 2] (* JeanFrançois Alcover, Oct 21 2021 *)


PROG

(Haskell)
a198387 n = a198387_list !! (n1)
a198387_list = zipWith () a198385_list a198384_list


CROSSREFS



KEYWORD

nonn


AUTHOR



STATUS

approved



