OFFSET
1,1
LINKS
F. J. van de Bult, D. C. Gijswijt, J. P. Linderman, N. J. A. Sloane and Allan Wilks, A Slow-Growing Sequence Defined by an Unusual Recurrence, J. Integer Sequences, Vol. 10 (2007), #07.1.2.
MATHEMATICA
Clear[g]; reversed = {g[2] = 1, g[1] = 1}; blocs[len_] := Module[{bloc1, par, pos}, bloc1 = Take[reversed, len]; par = Partition[reversed, len]; pos = Position[par, bloc_ /; bloc != bloc1, 1, 1]; If[pos == {}, Length[par], pos[[1, 1]] - 1]]; g[n_] := g[n] = Module[{g0}, g0 = Table[{blocs[len], len}, {len, 1, Quotient[n - 1, 2]}] // Sort // Last // First; PrependTo[reversed, g0]; g0]; A090822 = Table[g[n], {n, 1, 200}]; A091412 = Length /@ Split[A090822] (* Jean-François Alcover, Oct 07 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 04 2004
STATUS
approved