A136003 Primes that are not the sum, minus 1, of a Pythagorean triple.

2, 3, 5, 7, 13, 17, 19, 31, 37, 41, 43, 53, 61, 67, 73, 97, 101, 103, 109, 113, 127, 137, 151, 157, 163, 173, 193, 211, 229, 241, 257, 271, 277, 281, 283, 293, 313, 317, 331, 337, 353, 367, 397, 401, 409, 421, 433, 457, 463, 487, 499, 521, 523, 541, 547, 557

Offset: 1

Author

Omar E. Pol, Dec 16 2007

Keywords

• nonn

Comments

Primes in A136002.

Links

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

Crossrefs

Cf. A009096, A010814, A136002.

Programs

Mathematica

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

Extensions

Extended by Ray Chandler, Dec 13 2008