%I #17 May 13 2019 20:57:33
%S 1,2,3,-4,5,6,-9,7,8,-14,10,11,-18,12,13,-24,15,16,-30,17,19,-34,20,
%T 21,-39,22,23,-43,25,26,-50,27,28,-54,29,31,-57,33,-32,35,36,-70,37,
%U 38,-73,40,41,-78,42,44,-85,45,46,-90,47,48,-94,49,51,-97,52,53,-104,55,56,-109,58,59,-116,61,-60,62,63
%N First differences of A081145.
%C Does every number appear in the sequence of absolute values (see A308007)?
%H Chai Wah Wu, <a href="/A099004/b099004.txt">Table of n, a(n) for n = 1..5000</a>
%t f[s_] := Block[{k = 1, d = Abs[Most@s - Rest@s], l = Last@s}, While[MemberQ[s, k] || MemberQ[d, Abs[l - k]], k++ ]; Append[s, k]]; t = Nest[f, {1}, 75]; Rest@t - Most@t (* _Robert G. Wilson v_, Jun 13 2006 *)
%o (Python)
%o A099004_list, l, s, b1, b2 = [1], 2, 3, set(), set([1])
%o for n in range(2, 5*10**3+1):
%o ....i = s
%o ....while True:
%o ........m = abs(i-l)
%o ........if not (i in b1 or m in b2):
%o ............A099004_list.append(i-l)
%o ............b1.add(i)
%o ............b2.add(m)
%o ............l = i
%o ............while s in b1:
%o ................b1.remove(s)
%o ................s += 1
%o ............break
%o ........i += 1 # _Chai Wah Wu_, Dec 15 2014
%Y Cf. A081145, A081146, A308007, A308021.
%K sign,easy
%O 1,2
%A _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 17 2003
%E Edited by _N. J. A. Sloane_, Apr 08 2006
%E More terms from _Robert G. Wilson v_, Jun 13 2006