A177353 n! (mod n^2+1).

1, 2, 6, 7, 16, 17, 40, 20, 30, 72, 108, 45, 20, 188, 206, 115, 240, 0, 12, 266, 0, 355, 440, 17, 612, 271, 260, 485, 302, 459, 884, 750, 930, 936, 1064, 1088, 860, 0, 196, 1430, 1218, 1725, 0, 143, 916, 870, 0, 1990, 2024, 2419, 2, 2610, 2770, 1355, 2040, 99, 0, 465, 310, 2015

Offset: 1

Author

Vladimir Shevelev, Dec 18 2010

Keywords

• nonn

Comments

a(n)=0 if n is in A120416. - Ivan Neretin, May 22 2015

Links

• Ivan Neretin, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A131451, A002522, A120416.

Programs

Mathematica

Table[Mod[n!, n^2 + 1], {n, 60}]