A171511 - OEIS

%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