# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/
Search: id:a006999
Showing 1-1 of 1
%I A006999 M1047 #63 Jul 30 2023 18:46:38
%S A006999 0,1,2,4,7,11,17,26,40,61,92,139,209,314,472,709,1064,1597,2396,3595,
%T A006999 5393,8090,12136,18205,27308,40963,61445,92168,138253,207380,311071,
%U A006999 466607,699911,1049867,1574801,2362202,3543304,5314957,7972436
%N A006999 Partitioning integers to avoid arithmetic progressions of length 3.
%C A006999 a(n) = A006997(3^n-1).
%C A006999 It appears that, aside from the first term, this is the (L)-sieve transform of A016789 ={2,5,8,11,...,3n+2....}. This has been verified up to a(30)=311071. See A152009 for the definition of the (L)-sieve transform. - _John W. Layman_, Nov 20 2008
%C A006999 a(n) is also the largest-index square reachable in n jumps if we start at square 0 of the Infinite Sidewalk. - _Jose Villegas_, Mar 27 2023
%D A006999 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H A006999 Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
%H A006999 B. Chen, R. Chen, J. Guo, S. Lee et al, On Base 3/2 and its sequences, arXiv:1808.04304 [math.NT], 2018.
%H A006999 Joseph Gerver, James Propp and Jamie Simpson, Greedily partitioning the natural numbers into sets free of arithmetic progressions Proc. Amer. Math. Soc. 102 (1988), no. 3, 765-772.
%H A006999 D. R. Hofstadter, Eta-Lore [Cached copy, with permission]
%H A006999 D. R. Hofstadter, Pi-Mu Sequences [Cached copy, with permission]
%H A006999 D. R. Hofstadter and N. J. A. Sloane, Correspondence, 1977 and 1991
%H A006999 James Propp and N. J. A. Sloane, Email, March 1994
%H A006999 Jane Street, Traversing the Infinite Sidewalk (2023).
%F A006999 a(n) = floor((3a(n-1)+2)/2).
%F A006999 a(n) = -1 + floor(c*(3/2)^n) where c=1.081513668589844877304633988599549408710737041542024954790295591585622666484989650922411026555488940... - _Benoit Cloitre_, Jan 10 2002
%F A006999 a(n+1) = (3*a(n))/2+1 if a(n) is even. a(n+1) = (3*a(n)+1)/2 if a(n) is odd. - _Miquel Cerda_, Jun 15 2019
%t A006999 a[0] = 0; a[n_] := a[n] = Floor[(3 a[n-1] + 2)/2];
%t A006999 Table[a[n], {n, 0, 40}] (* _Jean-François Alcover_, Aug 01 2018 *)
%o A006999 (PARI) a(n)=if(n<1,0,floor((3*a(n-1)+2)/2))
%o A006999 (Haskell)
%o A006999 a006999 n = a006999_list !! n
%o A006999 a006999_list = 0 : map ((`div` 2) . (+ 2) . (* 3)) a006999_list
%o A006999 -- _Reinhard Zumkeller_, Oct 26 2011
%Y A006999 a(n) = A061419(n) - 1 = A061418(n) - 2.
%Y A006999 The constant c is 2/3*K(3) (see A083286). - _Ralf Stephan_, May 29 2003
%Y A006999 Cf. A003312.
%Y A006999 First differences are in A073941.
%Y A006999 Cf. A016789, A152009. - _John W. Layman_, Nov 20 2008
%Y A006999 Cf. A005428 (first differences).
%K A006999 nonn,easy
%O A006999 0,3
%A A006999 _N. J. A. Sloane_, D. R. Hofstadter, and _James Propp_, Jul 15 1977
%E A006999 More terms from _James A. Sellers_, Feb 06 2000
# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE