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

Author

Omar E. Pol, Dec 15 2007

Keywords

• nonn

Comments

Numbers that are not in A136000.

Links

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

Crossrefs

Cf. A009096, A010814, A136000.

Programs

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

Extensions

Extended by Ray Chandler, Dec 13 2008