A309760 Even numbers k such that k-p is composite where p is the largest prime <= k.
122, 148, 190, 208, 220, 250, 292, 302, 326, 346, 418, 430, 476, 518, 532, 538, 556, 586, 628, 640, 670, 700, 718, 782, 796, 806, 820, 838, 848, 872, 896, 902, 928, 962, 1006, 1030, 1048, 1060, 1078, 1084, 1138, 1144, 1150, 1162, 1180, 1210, 1246, 1258, 1268, 1274
Offset: 1
Keywords
Programs
-
Mathematica
Select[Range[4, 1274, 2], CompositeQ[# - NextPrime[#, -1]] &] (* Amiram Eldar, Sep 17 2019 *)
-
PARI
is(n) = if(n%2==1 ||n==2, return(0)); my(c = n - precprime(n)); !isprime(c) && c != 1 \\ David A. Corneth, Aug 21 2019