A348577 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

Complement of A010814.

LINKS

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

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 *)

CROSSREFS

Cf. A010814.

Sequence in context: A325778 A364531 A299702 * A361232 A027855 A031996

Adjacent sequences: A348574 A348575 A348576 * A348578 A348579 A348580

KEYWORD

nonn

AUTHOR

Wesley Ivan Hurt, Oct 23 2021

STATUS

approved