cp's OEIS Frontend

A060000 If the numbers a(1)...a(n) contain a hole, then a(n+1) is the smallest hole; otherwise a(n+1) = a(n-1) + a(n).

%I A060000 #32 Feb 19 2024 10:29:52
%S A060000 1,2,3,5,4,9,6,7,8,15,10,11,12,13,14,27,16,17,18,19,20,21,22,23,24,25,
%T A060000 26,51,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,
%U A060000 49,50,99,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71
%N A060000 If the numbers a(1)...a(n) contain a hole, then a(n+1) is the smallest hole; otherwise a(n+1) = a(n-1) + a(n).
%C A060000 Let H be the set of positive numbers less than a(n) which are not equal to some a(i), i < n. This H is the 'set of holes so far'. If H is nonempty, then define a(n+1) = minimum(H). Otherwise define a(n+1) = a(n-1) + a(n).
%C A060000 Permutation of the natural numbers with inverse A099424.
%C A060000 A060013(n+1) = a(A060013(n)+1). - _Reinhard Zumkeller_, Mar 04 2008
%H A060000 Reinhard Zumkeller, <a href="/A060000/b060000.txt">Table of n, a(n) for n = 1..10000</a>
%H A060000 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F A060000 a(k)=k-1 if k>=7 and k <> 2^m * 3 + 4; a(k)=(k-1)*2-3 if k>=7 and k == 2^m * 3 + 4. - _Alfred Heiligenbrunner_, Jun 08 2004
%t A060000 h = {1, 2}; a = 1; b = 2; Do[ g = Sort[ h ]; If[ g[ [ -1 ] ] + 1 == n, c = a + b, k = 1; While[ g[ [ k ] ] == k, k++ ]; c = k ]; a = b; b = c; h = Append[ h, c ], { n, 3, 100} ]; h
%t A060000 (* faster program *) h = {1, 2, 3, 5, 4, 9}; lastSum = 9; Do[AppendTo[h, If[ ++akt < lastSum, akt, ++akt; lastSum = 2*lastSum - 3]], {akt, 5, 100}]; h (* _Alfred Heiligenbrunner_, Jun 05 2004 *)
%o A060000 (Haskell)
%o A060000 a060000 n = a060000_list !! (n-1)
%o A060000 a060000_list = 1 : 2 : f 1 2 2 [] where
%o A060000    f x y m []     = z : f y z z [m+1..z-1] where z = x + y
%o A060000    f x y m (h:hs) = h : f y h m hs
%o A060000 -- _Reinhard Zumkeller_, Sep 22 2011
%Y A060000 Cf. A060013, A060030, A000045.
%K A060000 easy,nonn,nice
%O A060000 1,2
%A A060000 _Rainer Rosenthal_, Mar 09 2001
%E A060000 More terms from _Robert G. Wilson v_ and Larry Reeves (larryr(AT)acm.org), Mar 15 2001