A198409 -id:A198409 - cp's OEIS frontend

A198439 Square root of first term of a triple of squares in arithmetic progression that is not a multiple of another triple in (A198384, A198385, A198386).

1, 7, 7, 17, 1, 23, 31, 49, 17, 47, 23, 71, 7, 41, 41, 79, 97, 7, 31, 73, 127, 119, 89, 17, 161, 47, 113, 167, 119, 1, 199, 49, 73, 103, 161, 223, 241, 23, 31, 103, 89, 191, 287, 151, 217, 287, 137, 233, 71, 337, 79, 137, 17, 281, 359, 391, 49, 113, 119, 217

Offset: 1

Reinhard Zumkeller, Oct 25 2011

nonn

This sequence gives the values |x-y| of primitive Pythagorean triangles (x,y,z) with even y ordered according to the nondecreasing values of the leg sums x+y (called w in the Zumkeller link, and given in A198441). For the equivalence to primitive Pythagorean triples with even y see a comment in A198441. - Wolfdieter Lang, May 22 2013

			From _Wolfdieter Lang_, May 22 2013: (Start)
Primitive Pythagorean triple (x,y,z), y even, connection:
a(2) = 7 because the triple with second smallest leg sum x+y = 17 = A198441(2) is (5,12,13), and |x - y| = y - x = 12 - 5 = 7.
a(3) = 7 because x + y = A198441(3) = 23, (x,y,z) = (15,8,17) (the primitive triple with third smallest leg sum), and |x-y| = x - y = 15 - 8 = 7. (End)

Ray Chandler, Table of n, a(n) for n = 1..10000
Keith Conrad, Arithmetic progressions of three squares
Reinhard Zumkeller, Table of initial values

a198439 n = a198439_list !! (n-1)
a198439_list = map a198388 a198409_list

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, v, w}]]]]][[2]];
tt = Flatten[DeleteCases[triples /@ Range[wmax], {}], 2];
DeleteCases[tt, t_List /; GCD@@t>1 && MemberQ[tt, t/GCD@@t]][[All, 1]] (* Jean-François Alcover, Oct 22 2021 *)

A198435(n) = a(n)^2; a(n) = A198388(A198409(n)).

A198388 Square root of first term of a triple of squares in arithmetic progression.

Original entry on oeis.org

1, 2, 7, 3, 7, 4, 17, 14, 5, 1, 6, 14, 23, 7, 31, 21, 8, 34, 9, 28, 21, 10, 49, 17, 11, 47, 2, 12, 35, 23, 13, 28, 51, 46, 71, 14, 62, 42, 7, 15, 16, 41, 35, 17, 41, 49, 79, 3, 68, 18, 97, 19, 56, 7, 42, 20, 69, 98, 34, 21, 93, 31, 63, 22, 85, 94, 23, 49, 73

Offset: 1

Reinhard Zumkeller, Oct 24 2011

nonn

There is a connection to |x-y| of Pythagorean triangles (x,y,z). See a comment on the primitive Pythagorean triangle case under A198441 which applies mutatis mutandis. - Wolfdieter Lang, May 23 2013

			Connection to Pythagorean triangles: a(2) = 2 because (in the notation of the Zumkeller link) (u,v,w) = 2*(1,5,7) and the corresponding Pythagorean triangle is 2*((7-1)/2,(1+7)/2,5) = 2*(3,4,5) with |x-y| = 2*(4-3) = 2. - _Wolfdieter Lang_, May 23 2013

Ray Chandler, Table of n, a(n) for n = 1..10000
Keith Conrad, Arithmetic progressions of three squares
Reinhard Zumkeller, Table of initial values

Cf. A198384, A198409, A198439.

a198388 n = a198388_list !! (n-1)
a198388_list = map (\(x,,) -> x) ts where
   ts = [(u,v,w) | w <- [1..], v <- [1..w-1], u <- [1..v-1],
                   w^2 - v^2 == v^2 - u^2]

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, v, w}]]]]][[2]];
Flatten[DeleteCases[triples /@ Range[wmax], {}], 2][[All, 1]] (* Jean-François Alcover, Oct 20 2021 *)

A198384(n) = a(n)^2.

A198439(n) = a(A198409(n)).

A198389 Square root of second term of a triple of squares in arithmetic progression.

Original entry on oeis.org

5, 10, 13, 15, 17, 20, 25, 26, 25, 29, 30, 34, 37, 35, 41, 39, 40, 50, 45, 52, 51, 50, 61, 53, 55, 65, 58, 60, 65, 65, 65, 68, 75, 74, 85, 70, 82, 78, 73, 75, 80, 85, 85, 85, 89, 91, 101, 87, 100, 90, 113, 95, 104, 97, 102, 100, 111, 122, 106, 105, 123, 109

Offset: 1

Reinhard Zumkeller, Oct 24 2011

nonn

Apart from its initial 1, A001653 is a subsequence: for all n>1 exists an m such that A198388(m)=1 and a(m)=A001653(n). [observed by Zak Seidov, Reinhard Zumkeller, Oct 25 2011]

There is a connection to hypotenuses of Pythagorean triangles. See a comment for the primitive case on A198441 which applies here mutatis mutandis. - Wolfdieter Lang, May 23 2013

			Connection to Pythagorean triangle hypotenuses: a(20) = 10 because (in the notation of the Zumkeller link) (u,v,w) = 2*(1,5,7) and the Pythagorean triangle is 2*(x=(7-1)/2,y=(1+7)/2,5) = 2*(3,4,5) with hypotenuse 2*5 = 10. - _Wolfdieter Lang_, May 23 2013

Ray Chandler, Table of n, a(n) for n = 1..10000
Reinhard Zumkeller, Table of initial values
Keith Conrad, Arithmetic progressions of three squares

Cf. A198385, A198409, A198440.

a198389 n = a198389_list !! (n-1)
a198389_list = map (\(,x,) -> x) ts where
   ts = [(u,v,w) | w <- [1..], v <- [1..w-1], u <- [1..v-1],
                   w^2 - v^2 == v^2 - u^2]

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, v, w}]]]]][[2]];
Flatten[DeleteCases[triples /@ Range[wmax], {}], 2][[All, 2]] (* Jean-François Alcover, Oct 20 2021 *)

A198385(n) = a(n)^2.

A198440(n) = a(A198409(n)).

A198440 Square root of second term of a triple of squares in arithmetic progression that is not a multiple of another triple in (A198384, A198385, A198386).

Original entry on oeis.org

5, 13, 17, 25, 29, 37, 41, 61, 53, 65, 65, 85, 73, 85, 89, 101, 113, 97, 109, 125, 145, 145, 149, 137, 181, 157, 173, 197, 185, 169, 221, 185, 193, 205, 229, 257, 265, 205, 221, 233, 241, 269, 313, 265, 293, 325, 277, 317, 281, 365, 289, 305, 305, 365, 401

Offset: 1

Reinhard Zumkeller, Oct 25 2011

nonn

This sequence gives the hypotenuses of primitive Pythagorean triangles (with multiplicities) ordered according to nondecreasing values of the leg sums x+y (called w in the Zumkeller link, given by A198441). See the comment on the equivalence to primitive Pythagorean triangles in A198441. For the values of these hypotenuses ordered nondecreasingly see A020882. See also the triangle version A222946. - Wolfdieter Lang, May 23 2013

			From _Wolfdieter Lang_, May 22 2013: (Start)
Primitive Pythagorean triangle (x,y,z), even y, connection:
a(8) = 61 because the leg sum x+y = A198441(8) = 71 and due to A198439(8) = 49 one has y = (71+49)/2 = 60 is even, hence x = (71-49)/2 = 11 and z = sqrt(11^2 + 60^2) = 61. (End)

Ray Chandler, Table of n, a(n) for n = 1..10000
Keith Conrad, Arithmetic progressions of three squares
Reinhard Zumkeller, Table of initial values

Cf. A020882, A222946.

a198440 n = a198440_list !! (n-1)
a198440_list = map a198389 a198409_list

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, v, w}]]]]][[2]];
tt = Flatten[DeleteCases[triples /@ Range[wmax], {}], 2];
DeleteCases[tt, t_List /; GCD@@t > 1 && MemberQ[tt, t/GCD@@t]][[All, 2]] (* Jean-François Alcover, Oct 22 2021 *)

A198436(n) = a(n)^2; a(n) = A198389(A198409(n)).

cp's OEIS Frontend

A198439 Square root of first term of a triple of squares in arithmetic progression that is not a multiple of another triple in (A198384, A198385, A198386).

Views

Author

Keywords

Comments

Examples

Links

Programs

Haskell

Mathematica

Formula

A198388 Square root of first term of a triple of squares in arithmetic progression.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

Formula

A198389 Square root of second term of a triple of squares in arithmetic progression.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

Formula

A198440 Square root of second term of a triple of squares in arithmetic progression that is not a multiple of another triple in (A198384, A198385, A198386).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

Formula