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

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, 16, 17, 18, 19, 19, 19, 19, 19, 19, 20, 21, 22, 23, 24, 25, 25, 25, 25, 25, 25, 25, 25, 25, 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

Offset: 0

Author

N. J. A. Sloane, Dec 28 2024

Keywords

• nonn

Examples

			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.
		

Links

• N. J. A. Sloane, Table of n, a(n) for n = 0..10000
• N. J. A. Sloane, Table of n, A379067(n), A379068(n) for n = 0..999995.

Crossrefs

Cf. A377091, A379067.

Programs

Mathematica

(* A377091list is defined at A377091 *)
Module[{s, a}, s[A377091list%5B100%5D%5D%5D%5D%5D%20(*%20_Paolo%20Xausa">] := False; Abs[FoldList[(s[#2] = True; a = #; While[s[a], a--]; a) &, -1, Rest[A377091list[100]]]]] (* _Paolo Xausa, Feb 15 2025 *)