A089014 n*nextprime((n-1)!)-nextprime(n!).

0, 1, 2, -1, 18, 35, 38, 65, 190, 159, 120, -17, 310, 919, 242, 665, 360, 521, 614, 1751, 578, 651, 616, 2197, 3234, 1007, 1592, -39, 1720, 6583, 3190, 3985, 2570, 1161, 3334, 2065, 4846, -5, 1580, 3827, 2172, -55, 4100, 3077, 1876, 10893, 4514, 11131, 2514, 4089, 2840

Offset: 1

Author

N. J. A. Sloane, Dec 20 2003

Keywords

• sign

Crossrefs

Cf. A090660.

Programs

Mathematica

Table[n NextPrime[(n-1)!]-NextPrime[n!],{n,60}] (* Harvey P. Dale, Jan 23 2015 *)