A347190 Numbers k with positive integer solutions a,b,c such that 2*a^2 + b^2 = c^2, k = a + b + c, and a <= b <= c.

20, 24, 40, 42, 48, 60, 72, 80, 84, 96, 100, 110, 112, 120, 126, 130, 140, 144, 156, 160, 168, 180, 192, 198, 200, 210, 216, 220, 224, 238, 240, 252, 260, 264, 266, 272, 280, 286, 288, 294, 300, 304, 308, 312, 320, 330, 336, 340, 342, 360, 364, 378, 380, 384, 390, 396, 400, 408

Offset

1,1

Links

Table of n, a(n) for n=1..58.

Example

20 is in the sequence since 20 = 4 + 7 + 9 and 2*4^2 + 7^2 = 9^2.

Mathematica

Select[Range[400], Length @ Reduce[a + b + c == # && 0 < a <= b <= c && 2*a^2 + b^2 == c^2, {a, b, c}, Integers] > 0 &] (* Amiram Eldar, Nov 07 2021 *)

Crossrefs

Sequence in context: A060461 A214177 A044996 * A263016 A107302 A219392

Adjacent sequences: A347187 A347188 A347189 * A347191 A347192 A347193

Keyword

nonn

Author

Wesley Ivan Hurt, Nov 07 2021

Status

approved