A078156 A078153(n!)

0, 0, 0, 0, 46, 702, 7479, 97902, 1231886, 15977798, 208298944, 3085485116, 45879947392, 749485746579, 12963973882204, 236404256556347, 4415737043058504, 88721524940832020, 1830113429944169943, 40228564066847381090, 921832573196324390682

Offset

1,5

Links

Table of n, a(n) for n=1..21.

Formula

a(n) = A078153(n!) = A078162(n) - A062569(n)

Mathematica

Table[Length[Union[Table[Floor[w!/j], {j, 1, w!}]]] -DivisorSigma[1, w! ], {w, 1, 9}]

Crossrefs

Cf. A078152, A078153, A078154, A078155, A078156, A078157, A078158.

Sequence in context: A224053 A224306 A224370 * A341428 A066405 A113922

Adjacent sequences: A078153 A078154 A078155 * A078157 A078158 A078159

Keyword

nonn

Author

Labos Elemer, Nov 27 2002

Extensions

Terms a(10) onward from Max Alekseyev, Feb 12 2012

Status

approved