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,2

Comments

Complement of A010814.

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

N:= 100: # for terms <= N
S:= {$1..N}:
for x from 1 while 2*x^2 < N do
  for y from 1 to x-1 do
    p:= 2*x*(x+y);
    if p > N then break fi;
    if igcd(x, y) = 1 and (x::odd or y::odd) then
       S:= S minus {seq(i*p, i=1..N/p)}
    fi
od od:
sort(convert(S, list)); # Robert Israel, Mar 29 2026

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