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

Author

Labos Elemer, Nov 27 2002

Keywords

• nonn

Crossrefs

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

Programs

Mathematica

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

Formula

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

Extensions

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