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,3

Links

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

Mathematica

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

Crossrefs

Cf. A090660.

Sequence in context: A270927 A089512 A300956 * A063426 A316195 A266010

Adjacent sequences: A089011 A089012 A089013 * A089015 A089016 A089017

Keyword

sign

Author

N. J. A. Sloane, Dec 20 2003

Status

approved