%I #24 Jul 27 2019 10:52:01
%S 2,2,4,4,4,4,6,8,8,8,8,8,8,8,10,10,10,10,12,12,12,12,16,16,16,16,16,
%T 16,16,16,24,26,26,26,26,26,26,26,28,28,28,28,28,28,28,28,28,32,32,32,
%U 32,32,32,32,32,32,32,32,32,32,32,32,36,36,36,36,36,36,36,36,42,42,42,42,42,42,42,42,42,42,42,42,48,48
%N a(n) = smallest number missing from A111273 after A111273(n) has been found.
%C A111273(n) can be even only if the triangular number T_n is even, that is when n is congruent to 0 or 3 modulo 4. So, as A111273(4) is not even, for n >= 4 there is an even number k <= n that has not appeared in A111273 by term n, whereas all odd numbers k <= n have appeared (as explained in A111273). Thus a(n) is even for all n. Also a(n) > n/2 for all n >= 1. - _Peter Munn_, Jul 27 2019
%H Robert Israel, <a href="/A309195/b309195.txt">Table of n, a(n) for n = 1..10000</a>
%e 1 2 3 4 .5 6 7 8 <- n
%e 1 3 2 5 15 7 4 6 <- A111273
%e 2 2 4 4 .4 4 6 8 <- smallest number missing from A111273 = a(n)
%p N:= 100: # to get a(1)..a(N)
%p Missing:= {$1..N}:
%p for n from 1 to N do
%p v:= min(numtheory:-divisors(n*(n+1)/2) intersect Missing);
%p Missing:= Missing minus {v};
%p A[n]:= min(Missing);
%p od:
%p seq(A[n],n=1..N); # _Robert Israel_, Jul 25 2019
%Y Cf. A111273, A113658, A309196, A309197.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Jul 24 2019.
%E The values I gave earlier today were wrong, caused by a bug in my program. Thanks to _Peter Munn_ for pointing out that something was wrong. - _N. J. A. Sloane_, Jul 24 2019