|
%I M1587 #34 Oct 01 2023 22:38:36
%S 2,6,12,30,60,120,210,420,840,1260,2520,2520,5040,9240,13860,27720,
%T 32760,55440,65520,120120,180180,360360,360360,720720,720720,942480,
%U 1113840
%N Maximal period of an n-stage shift register.
%C Maximal order of an element of finite order in GL(2n, Z) or GL(2n+1, Z).
%C a(n) is the max of the first n numbers in A080742.
%D H. Lüneburg, Galoisfelder, Kreisteilungskörper und Schieberegisterfolgen. B. I. Wissenschaftsverlag, Mannheim, 1979.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H Benjamin Grossmann, <a href="https://math.stackexchange.com/q/4199260">What is the largest (finite) order of an element of GL(10,Q)?</a>
%H J. Kuzmanovich and A. Pavlichenkov, <a href="http://www.jstor.org/stable/2695329">Finite groups of matrices whose entries are integers</a>, Amer. Math. Monthly, 109 (2002), 173-186.
%F a(n) = max m such that A067240(m) <= 2n + 1. E.g., a(2) = 12 since 12 is largest m such that A067240(m) <= 5.
%t (* b,c = a080737 *)
%t nmax = 26;
%t kmax = 1200000; (* kmax increased by 100000 until results do not change *)
%t b[1] = b[2] = 0; b[p_?PrimeQ] := b[p] = p-1; b[k_] := b[k] = If[Length[f = FactorInteger[k]]==1, EulerPhi[k], Total[b /@ (f[[All, 1]]^f[[All, 2]])] ];
%t orders = Table[{k, b[k]}, {k, 1, kmax}];
%t c[0] = 2; c[n_] := c[n] = Select[orders, 2n-1 <= #[[2]] <= 2n&][[-1, 1]];
%t a[n_] := Table[c[m], {m, 0, n}] // Max;
%t Table[a[n], {n, 0, nmax}] (* _Jean-François Alcover_, Dec 17 2017 *)
%Y Cf. A000793, A080742, A080743.
%K nonn,nice,more
%O 0,1
%A _N. J. A. Sloane_
%E Entry revised by _N. J. A. Sloane_, Mar 10 2002
|
