login
A309760
Even numbers k such that k-p is composite where p is the largest prime <= k.
0
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,1
MATHEMATICA
Select[Range[4, 1274, 2], CompositeQ[# - NextPrime[#, -1]] &] (* Amiram Eldar, Sep 17 2019 *)
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Aaron Schäfers, Aug 15 2019
STATUS
approved