A382766 Odd primes p such that p + 4, p + 6 and p + 8 are composite.
113, 137, 139, 179, 181, 197, 199, 211, 239, 241, 281, 283, 293, 317, 337, 409, 419, 421, 467, 509, 521, 523, 547, 577, 617, 619, 631, 659, 661, 691, 709, 773, 787, 797, 809, 811, 827, 829, 839, 863, 887, 919, 953, 997, 1019, 1021, 1039, 1049, 1051, 1069
Offset: 1
Keywords
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
P:= select(isprime,{seq(i,i=3..10008,2)}): R:= P minus (P -~ 4) minus (P -~ 6) minus (P -~ 8): sort(convert(R,list)); # Robert Israel, Apr 28 2025 -
Mathematica
Select[Table[ Module[{p = 2, q}, While[True, q = 2 n - p; If[PrimeQ[p] && PrimeQ[q], Break[]]; p = NextPrime[p]]; If[p == 11, q, Nothing]], {n, 2, 1000}], # =!= Nothing &] -
PARI
isok(p) = (p%2) && isprime(p) && !isprime(p+4) && !isprime(p+6) && !isprime(p+8); \\ Michel Marcus, Apr 07 2025