A061555 - OEIS

A061555

Integer part of sigma(n!)/n!.

1, 1, 1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,4

COMMENTS

With increasing n, a(n) goes to infinity (proof in Sierpiński).

From Bernard Schott, Oct 03 2022: (Start)

It seems that sigma(n!)/n! is an integer only for n = 0, 1, 3, 5 and corresponding values are 1, 1, 2, 3.

For m >= 2, the smallest integer n such that a(n) = m is A061556(m). (End)

REFERENCES

Wacław Sierpiński, Elementary Theory of Numbers, Ex. 6, p. 169, Warsaw, 1964.

LINKS

Harry J. Smith, Table of n, a(n) for n = 0..1000

FORMULA

a(n) = floor(sigma(n!)/n!) = floor(A062569(n)/A000142(n)).

MATHEMATICA

Table[Floor[DivisorSigma[1, n!]/n!], {n, 0, 100}] (* Wesley Ivan Hurt, Apr 16 2024 *)

PROG

(PARI) { for (n=0, 1000, write("b061555.txt", n, " ", sigma(n!)\n!) ) } \\ Harry J. Smith, Jul 24 2009

CROSSREFS

Cf. A000142, A000203, A061556, A062569.

Sequence in context: A091194 A156079 A268708 * A146323 A071626 A182008

Adjacent sequences: A061552 A061553 A061554 * A061556 A061557 A061558

KEYWORD

nonn

AUTHOR

Labos Elemer, May 17 2001

EXTENSIONS

Terms corrected for an offset of 0 by Harry J. Smith, Jul 24 2009

STATUS

approved