|
%I #57 Oct 06 2018 09:37:30
%S 3,3,3,3,4,3,3,3,3,4,3,3,3,3,4,3,3,3,3,4,4,3,3,3,3,4,3,3,3,3,4,3,3,3,
%T 3,4,3,3,3,3,4,4,3,3,3,3,4,3,3,3,3,4,3,3,3,3,4,3,3,3,3,4,4,3,3,3,3,4,
%U 3,3,3,3,4,3,3,3,3,4,3,3,3,3,4,4,4,3,3,3,3,4,3,3,3,3,4,3,3,3,3
%N a(1) = 3. To get a(n+1), write the string a(1)a(2)...a(n) as xy^k for words x and y (where y has positive length) and k is maximized, i.e., k = the maximal number of repeating blocks at the end of the sequence so far. Then a(n+1) = max(k,3).
%C Here xy^k means the concatenation of the words x and k copies of y.
%C The first '5' appears at step 343. At which step does the first '6' appear? - _Sergio Pimentel_, Jul 13 2015
%C The first '6' appears at about 4.33*10^616, see FORMULA for exact value. The positions where record lengths of strings 5 and 6 occur can be computed via sequence A091844, see PARI code there. - _M. F. Hasler_, Sep 29 2018
%C This sequence is the concatenation of the "glue strings" of sequence A091787, just like sequence A091844 is the concatenation of the glue strings of this sequence. - _M. F. Hasler_, Oct 04 2018
%H Giovanni Resta, <a href="/A091799/b091799.txt">Table of n, a(n) for n = 1..10000</a>
%H Simon Plouffe, <a href="http://arxiv.org/abs/1310.7195">On the values of the functions zeta and gamma</a>, arXiv preprint arXiv:1310.7195 [math.NT], 2013.
%H F. J. van de Bult, D. C. Gijswijt, J. P. Linderman, N. J. A. Sloane and Allan Wilks, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL10/Sloane/sloane55.html">A Slow-Growing Sequence Defined by an Unusual Recurrence</a>, J. Integer Sequences, Vol. 10 (2007), #07.1.2.
%H <a href="/index/Ge#Gijswijt">Index entries for sequences related to Gijswijt's sequence</a>
%F From _M. F. Hasler_, Sep 29 2018: (Start)
%F The first '5' appears at position 343 which in hexadecimal is 1x, with x = 57 (in base 16).
%F The first two consecutive '5's appear at positions 5760309085..5760309086, which is {-1..0} + 1y in hexadecimal, where y = xxxx + 7.
%F Then '55' occurs again at positions {-1..0} + 1yy in hexadecimal, etc.
%F The first three consecutive '5's appear at positions 1z + {-2..0} in hexadecimal, where z = yyyy + 20 (in base 16).
%F Then '555' occurs again at positions {-2..0} + 1zz in hexadecimal, etc.
%F The first occurrence of '5555' is at positions {-4..-1} + 1w in hexadecimal, where w = zzzz + 98 (in base 16).
%F '555' also occurs again at positions {-2..0} + 1w'z in hexadecimal, where 'z = 'yyyy + 20, 'y = 'xxxx + 7 and 'x = x - 1 = 56 (in base 16), and also at positions {-2..0} + 1w'zz in hexadecimal, and at positions {-2..0} + 1w'zzz in hexadecimal.
%F Then '5555' occurs again at positions {-4..-1} + 1w'w in hexadecimal, where 'w = 'zzzz + 98 (in base 16).
%F '555' also occurs again at positions {-2..0} + 1w'w'z in hexadecimal, etc.
%F '5555' also occurs again at positions {-3..0} + 1w'w'w in hexadecimal, and at positions {-4..-1} + 1w'w'w'w in hexadecimal.
%F The first occurrence of a '6' (immediately after the first '55555', followed by a sixth '5') is at position 1w'w'w'w + 30E in hexadecimal, which equals 782 + 16^510*257 + (16^512-1)/(16^128-1)*(158 - 16^126 + (16^128-1)/(16^32-1)*(32 + (16^32-1)/(16^8-1)*(7 + (16^8-1)/255*87))). (End)
%t maxBlockLength = 21; a[1] = 3; a[n_] := a[n] = Module[{rev = Reverse[Array[a, n-1]]}, blockCount[blockLength_] := Module[{par, p1, k}, par = Partition[rev, blockLength]; If[par == {}, Return[1]]; p1 = First[par]; k = 1; While[k <= Length[par], If[par[[k]] != p1, Break[], k++]]; k - 1]; Max[Max[Array[blockCount, maxBlockLength]], 3]]; Array[a, 99] (* _Jean-François Alcover_, Nov 07 2013 *)
%o (PARI) A091799(n,A=[])={while(#A<n, my(k=3,L=0,m=k); while((k+1)*(L+1)<=#A, for(N=L+1,#A/(m+1), A[-m*N..-1]==A[-(m+1)*N..-N-1]&& m++&& break);m>k||break; k=m);A=concat(A,k));A} \\ _M. F. Hasler_, Aug 07 2018
%Y Cf. A090822, A091787, A091844.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Mar 08 2004
|
