A348577 Positive integers that are not the perimeter of any integer-sided right triangle.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 57, 58, 59, 61, 62, 63, 64, 65, 66, 67, 68, 69, 71, 73, 74, 75, 76, 77, 78, 79, 81, 82, 83, 85

Offset: 1

Author

Wesley Ivan Hurt, Oct 23 2021

Keywords

• nonn

Comments

Complement of A010814.

Crossrefs

Cf. A010814.

Programs

Mathematica

seq[max_] := Module[{s = {}, a, b, c}, Do[If[IntegerQ[c = Sqrt[a^2 + b^2]], AppendTo[s, a + b + c]], {a, max}, {b, Floor@Sqrt[a], a}]; Complement[Range[max], s]]; seq[100] (* Amiram Eldar, Oct 24 2021 *)