A076232 a(n) = prime(1+n!) - prime(n!).
1, 2, 4, 8, 2, 6, 4, 24, 18, 86, 54, 18, 22, 48, 12, 10, 56, 10, 8, 12, 24
Offset: 1
Programs
-
Mathematica
Table[Prime[n! + 1] - Prime[n!], {n, 10}] (* Wesley Ivan Hurt, Aug 24 2019 *)
-
PARI
a(n) = prime(1+n!) - prime(n!); \\ Michel Marcus, Aug 24 2019
-
PARI
a(n) = my(p=prime(n!)); nextprime(p+1) - p; \\ Michel Marcus, Aug 24 2019
Formula
a(n) = A001223(n!). - Michel Marcus, Aug 24 2019
Extensions
a(16)-a(21) from Michel Marcus, Aug 24 2019