%I #17 Oct 06 2019 18:24:58
%S 4,6,8,10,12,14,16,18,20,22,24,26,27,28,30,32,34,35,36,38,39,40,42,44,
%T 45,46,48,50,52,54,55,56,57,58,60,62,64,65,66,68,70,72,74,76,77,78,80,
%U 81,82,84,85,86,88,90,91,92,94,95,96,98,100,102,104,106,108
%N Numbers which are neither prime nor lucky.
%C Except for 2, sequence includes all positive even integers. First odd term is 27. - _Alonso del Arte_, Jun 20 2017
%t (* First run one of the programs for A000959 to define the list luckies *) max = 200; Complement[Range[max], Prime[Range[PrimePi[max]]], luckies] (* _Alonso del Arte_, Jun 14 2017 *)
%Y Cf. A000040, A000959, A032584, A031157.
%K nonn
%O 1,1
%A _Patrick De Geest_, Apr 15 1998
|