A136002 Numbers that are not the sum, minus 1, of a Pythagorean triple.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 24, 25, 26, 27, 28, 30, 31, 32, 33, 34, 36, 37, 38, 40, 41, 42, 43, 44, 45, 46, 48, 49, 50, 51, 52, 53, 54, 56, 57, 58, 60, 61, 62, 63, 64, 65, 66, 67, 68, 70, 72, 73, 74, 75, 76, 77, 78, 80, 81, 82, 84

Offset

1,2

Comments

Numbers that are not in A136000.

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

q[n_] := EvenQ[n] || Module[{d = Divisors[(n+1)/2]}, AllTrue[Range[3, Length[d]], d[[#]] >= 2 * d[[#-1]] &]]; Select[Range[100], q] (* Amiram Eldar, Oct 19 2024 *)

Crossrefs

Cf. A009096, A010814, A136000.

Sequence in context: A183223 A167520 A051882 * A059543 A160542 A241158

Adjacent sequences: A135999 A136000 A136001 * A136003 A136004 A136005

Keyword

nonn

Author

Omar E. Pol, Dec 15 2007

Extensions

Extended by Ray Chandler, Dec 13 2008

Status

approved