# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a002809 Showing 1-1 of 1 %I A002809 M0577 N0210 #47 Oct 29 2023 13:07:23 %S A002809 1,2,3,4,6,12,15,20,30,60,84,105,140,210,420,840,1260,1540,2310,2520, %T A002809 4620,5460,9240,13860,16380,27720,30030,32760,60060,120120,180180, %U A002809 360360,471240,510510,556920,1021020,1141140,2042040,3063060,3423420,6126120,6846840 %N A002809 Increasing values of A000793 (largest order of permutation of n elements). %D A002809 N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence). %D A002809 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence). %H A002809 Giovanni Resta, Table of n, a(n) for n = 1..10000 (first 3318 terms from Alois P. Heinz) %H A002809 Marc Deléglise and Jean-Louis Nicolas, Maximal product of primes whose sum is bounded, arXiv preprint arXiv:1207.0603 [math.NT], 2012. - From _N. J. A. Sloane_, Dec 17 2012 %H A002809 J.-L. Nicolas, Sur l'ordre maximum d'un élément dans le groupe S_n des permutations, Acta Arith., 14 (1968), 315-332. %H A002809 J.-L. Nicolas, Ordre maximal d'un élément du groupe S_n de permutations et 'highly composite numbers', Bull. Math. Soc. France 97 (1969) 129-191. %t A002809 b[n_, i_] := b[n, i] = Module[{p}, p = If[i<1, 1, Prime[i]]; If[n == 0 || i<1, 1, Max[b[n, i-1], Table[p^j*b[n-p^j, i-1], {j, 1, Log[p, n] // Floor}]]]]; a[n_] := b[n, If[n<8, 3, PrimePi[Ceiling[1.328*Sqrt[n*Log[n] // Floor]]]]]; Table[a[n], {n, 0, 100}] // Union (* _Jean-François Alcover_, Mar 07 2014, after _Alois P. Heinz_ *) %Y A002809 Indices are A006644. %Y A002809 Cf. A000793. %K A002809 nonn,nice %O A002809 1,2 %A A002809 _N. J. A. Sloane_ %E A002809 Description improved Apr 15 1997. More terms from _David W. Wilson_. # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE