%I #20 Oct 02 2017 10:54:28
%S 2,6,12,30,60,120,210,420,840,1260,2520,2310,5040,9240,13860,27720,
%T 32760,55440,65520,120120,180180,360360,235620,720720,556920,942480,
%U 1113840,1531530
%N Largest element of n-th row of A080738.
%H J. Bamberg, G. Cairns and D. Kilminster, <a href="http://www.jstor.org/stable/3647934">The crystallographic restriction, permutations and Goldbach's conjecture</a>, Amer. Math. Monthly, 110 (March 2003), 202-209.
%t a080737[1] = a080737[2] = 0; a080737[p_?PrimeQ] := a080737[p] = p - 1; a080737[n_] := a080737[n] = If[Length[fi = FactorInteger[n]] == 1, EulerPhi[n], Total[a080737 /@ (fi[[All, 1]]^fi[[All, 2]])]]; orders = Table[{n, a080737[n]}, {n, 1, 2*10^6}]; row[0] = {1, 2}; row[n_] := Select[orders, 2*n - 1 <= #[[2]] <= 2*n &][[All, 1]]; Table[ row[n] // Last, {n, 0, 27}] (* _Jean-François Alcover_, Jul 24 2013 *)
%o (Haskell)
%o a080742 n k = a080742_list !! n
%o a080742_list = map last a080738_tabf -- _Reinhard Zumkeller_, Jun 13 2012
%Y Cf. A080737, A080738, A080740, A080741, A005417.
%K nonn,more
%O 0,1
%A _N. J. A. Sloane_, Mar 08 2003
%E Corrected and extended by _Vladeta Jovovic_, Mar 09 2003