|
%I #17 Feb 13 2021 03:05:44
%S 1,3,5,7,8,10,11,13,14,15,16,18,19,21,22,23,24,26,27,29,30,31,32,34,
%T 35,36,37,38,39,41,42,44,45,46,47,48,49,51,52,53,54,56,57,59,60,61,62,
%U 64,65,66
%N Numbers that are not the sum of the k-th noncomposite number and k for any k >= 1.
%t With[{nn=20},Complement[Range[Prime[nn-1]],Total/@Thread[ {Join[{1}, Prime[ Range[nn-1]]],Range[nn]}]]] (* _Harvey P. Dale_, Nov 25 2012 *)
%Y Cf. A090178, A008578.
%K nonn
%O 1,2
%A _Jaroslav Krizek_, Dec 10 2009
%E Edited by _N. J. A. Sloane_, Dec 19 2009
|
