Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #39 Oct 04 2018 10:15:51
%S 4,10,58,58,418,838,2518,2518,27718,27718,360358,360358,360358,720718,
%T 12252238,12252238,232792558,232792558,232792558,232792558,5354228878,
%U 5354228878,26771144398,26771144398,80313433198,80313433198,2329089562798
%N a(n) is the number of steps after which n variables with increasing value ranges all have equal values when the values of all variables are decreased by 1 at each step and the value is set to the maximum value again when the resulting value would be 0.
%C The k-th variable can take k+1 different values.
%C From _Charlie Neder_, Oct 01 2018: (Start)
%C a(n) is the smallest k congruent to m-2 modulo m for 2 <= m <= n+1.
%C Proof: All variables will be equal for the first time precisely when they all are equal to 2, in which case each variable has changed from its maximum value m to 2. Additionally, this k is lcm(2,3,...,m) - 2, since advancing two more steps will return all variables to their maximum values.
%C Adding a variable that only takes one value {1} results in A070198 (LCM - 1). (End)
%H Felix Fröhlich, <a href="/A254078/a254078.pdf">Visual representation of a(3)</a>
%F a(n) = A003418(n+1) - 2. - _Charlie Neder_, Oct 02 2018
%e In case of two variables, the first can take two values (1 and 2) and the second three values (1, 2 and 3). Performing the operation on the variables generates sequences of values 2, 1, 2, 1, 2, 1, ... for first variable and 3, 2, 1, 3, 2, 1, ... for second variable. After four steps, the value of both variables is 2, so a(2) = 4.
%o (PARI) a(n) = my(v=vector(n, x, x++), w=v, i=0); while(1, if(vecmax(v)==vecmin(v), return(i)); for(k=1, #v, if(v[k]==1, v[k]=w[k], v[k]--)); i++) \\ _Felix Fröhlich_, Feb 19 2017
%o (Python)
%o from math import gcd
%o lcm = 2
%o for n in range(3,53):
%o ..lcm *= n // gcd(lcm,n)
%o ..print(n-1,lcm-2) # _Charlie Neder_, Oct 02 2018
%Y Cf. A070198 (LCM - 1), A003418 (LCM), A075059 (LCM + 1).
%K nonn
%O 2,1
%A _Felix Fröhlich_, Jan 25 2015
%E Value of a(6) corrected and more terms from _Felix Fröhlich_, Mar 25 2015
%E Illustration and program replaced with improved versions by _Felix Fröhlich_, Feb 19 2017
%E Corrected and extended by _Charlie Neder_, Oct 01 2018