This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A136003 #9 Oct 20 2024 03:52:03
%S A136003 2,3,5,7,13,17,19,31,37,41,43,53,61,67,73,97,101,103,109,113,127,137,
%T A136003 151,157,163,173,193,211,229,241,257,271,277,281,283,293,313,317,331,
%U A136003 337,353,367,397,401,409,421,433,457,463,487,499,521,523,541,547,557
%N A136003 Primes that are not the sum, minus 1, of a Pythagorean triple.
%C A136003 Primes in A136002.
%H A136003 Amiram Eldar, <a href="/A136003/b136003.txt">Table of n, a(n) for n = 1..10000</a>
%t A136003 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 *)
%Y A136003 Cf. A009096, A010814, A136002.
%K A136003 nonn
%O A136003 1,1
%A A136003 _Omar E. Pol_, Dec 16 2007
%E A136003 Extended by _Ray Chandler_, Dec 13 2008