A136003 - OEIS

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

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

OFFSET

1,1

COMMENTS

Primes in A136002.

LINKS

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

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

CROSSREFS

Cf. A009096, A010814, A136002.

Sequence in context: A049587 A293008 A038903 * A215799 A237057 A183073

Adjacent sequences: A136000 A136001 A136002 * A136004 A136005 A136006

KEYWORD

nonn

AUTHOR

Omar E. Pol, Dec 16 2007

EXTENSIONS

Extended by Ray Chandler, Dec 13 2008

STATUS

approved