cp's OEIS Frontend

A379068 Absolute value of smallest (in magnitude) missing negative number after A377091(n) has been found.

%I A379068 #27 Mar 21 2025 02:23:52
%S A379068 1,1,1,1,3,3,3,3,3,5,5,5,5,5,5,5,9,10,11,12,13,13,13,13,13,13,14,15,
%T A379068 16,17,18,19,19,19,19,19,19,20,21,22,23,24,25,25,25,25,25,25,25,25,25,
%U A379068 25,25,26,27,28,29,30,31,32,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,37,38,39,41,41,41,41,41,41,41,41,41,41,41,42,43,44,45
%N A379068 Absolute value of smallest (in magnitude) missing negative number after A377091(n) has been found.
%H A379068 N. J. A. Sloane, <a href="/A379068/b379068.txt">Table of n, a(n) for n = 0..10000</a>
%H A379068 N. J. A. Sloane, <a href="https://oeis.org/A379067/a379067.txt">Table of n, A379067(n), A379068(n) for n = 0..999995.</a>
%e A379068 A377091 has offset 0 and begins 0, 1, 2, -2, -1, 3, ... After we have found A377091(2) = 2, the missing negative numbers are -1, -2, -3, ..., so a(2) = |-1| = 1.
%t A379068 (* A377091list is defined at A377091 *)
%t A379068 Module[{s, a}, s[_] := False; Abs[FoldList[(s[#2] = True; a = #; While[s[a], a--]; a) &, -1, Rest[A377091list[100]]]]] (* _Paolo Xausa_, Feb 15 2025 *)
%Y A379068 Cf. A377091, A379067.
%K A379068 nonn
%O A379068 0,5
%A A379068 _N. J. A. Sloane_, Dec 28 2024