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,2

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.

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 *)

Crossrefs

Cf. A000793, A002809.

Sequence in context: A082186 A099849 A071163 * A024898 A094210 A165256

Adjacent sequences: A006641 A006642 A006643 * A006645 A006646 A006647

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved