|
%I #29 Sep 18 2019 01:28:51
%S 122,148,190,208,220,250,292,302,326,346,418,430,476,518,532,538,556,
%T 586,628,640,670,700,718,782,796,806,820,838,848,872,896,902,928,962,
%U 1006,1030,1048,1060,1078,1084,1138,1144,1150,1162,1180,1210,1246,1258,1268,1274
%N Even numbers k such that k-p is composite where p is the largest prime <= k.
%t Select[Range[4, 1274, 2], CompositeQ[# - NextPrime[#, -1]] &] (* _Amiram Eldar_, Sep 17 2019 *)
%o (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
%Y Cf. A007917, A018252, A049711, A025583.
%K nonn
%O 1,1
%A _Aaron Schäfers_, Aug 15 2019
|
