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
Offset: 0
Keywords
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
Programs
-
Mathematica
Table[Floor[DivisorSigma[1, n!]/n!], {n, 0, 100}] (* Wesley Ivan Hurt, Apr 16 2024 *)
-
PARI
{ for (n=0, 1000, write("b061555.txt", n, " ", sigma(n!)\n!) ) } \\ Harry J. Smith, Jul 24 2009
Extensions
Terms corrected for an offset of 0 by Harry J. Smith, Jul 24 2009
Comments