|
%I #10 Mar 23 2020 19:15:56
%S 1,2,3,4,6,7,9,10,12,14,16,17,19,20,22,24,26,27,29,30,32,34,36,37,39,
%T 41,43,45,47,48,50,51,53,55,57,59,61,62,64,66,68,69,71,72,74,76,78,79,
%U 81,83
%N Numbers that are not the sum of the k-th composite number and k for any k >= 1.
%H Robert Israel, <a href="/A171511/b171511.txt">Table of n, a(n) for n = 1..10000</a>
%p Comps:= remove(isprime, [$4..200]):
%p A:= {seq(Comps[i]+i,i=1..nops(Comps))}:
%p sort(convert({$1..max(A)} minus A,list)); # _Robert Israel_, Mar 23 2020
%Y Complement of A161537.
%K nonn
%O 1,2
%A _Jaroslav Krizek_, Dec 10 2009
|
