A006644 Indices of records in Landau's function A000793.

0, 2, 3, 4, 5, 7, 8, 9, 10, 12, 14, 15, 16, 17, 19, 23, 25, 27, 28, 29, 30, 32, 34, 36, 38, 40, 41, 42, 43, 47, 49, 53, 57, 58, 59, 60, 62, 64, 66, 68, 70, 72, 76, 77, 78, 79, 83, 85, 89, 93, 95, 97, 101, 102, 106, 108, 112, 118, 120, 126, 128, 130, 131, 132

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..3318 from Alois P. Heinz)
• J.-L. Nicolas, Ordre maximum d'un élément du groupe de permutations et highly composite numbers, Bull. Math. Soc. France, 97 (1969), 129-191.

Crossrefs

Cf. A000793, A002809.

Programs

Mathematica

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}]]]]; order[n_] := b[n, If[n<8, 3, PrimePi[Ceiling[1.328*Sqrt[n*Log[n] // Floor]]]]]; Join[{0}, Position[Differences[Array[order, 133, 0]], ?Positive] // Flatten ] (* _Jean-François Alcover, Mar 13 2014, after Alois P. Heinz *)