A242427 n! mod n^3.

0, 2, 6, 24, 120, 72, 238, 384, 567, 800, 110, 0, 2184, 784, 0, 0, 1428, 0, 703, 0, 0, 2904, 4209, 0, 0, 13520, 0, 0, 15109, 0, 18228, 0, 0, 30056, 0, 0, 9546, 14440, 0, 0, 26855, 0, 23994, 0, 0, 25392, 13207, 0, 0, 0, 0, 0, 95453, 0, 0, 0, 0, 148016, 93928, 0, 208315

Offset: 1

Author

Alex Ratushnyak, May 14 2014

Keywords

• nonn

Crossrefs

Cf. A000142, A000578, A072230, A242426.

Programs

Mathematica

Table[Mod[n!,n^3],{n,80}] (* Harvey P. Dale, Aug 03 2017 *)

Python

import math
for i in range(1,77): print(math.factorial(i) % (i**3), end=', ')