A082956 Difference between C(n) and the first prime after C(n), where C(n) = A049614(n).

1, 1, 1, 1, 1, 5, 5, 1, 5, 11, 11, 7, 7, 1, 11, 29, 29, 17, 17, 1, 47, 17, 17, 37, 79, 1, 31, 397, 397, 47, 47, 53, 127, 1, 53, 67, 67, 41, 23, 23, 23, 41, 41, 113, 107, 31, 31, 79, 157, 61, 353, 157, 157, 601, 31, 1, 29, 409, 409, 31, 31, 181, 41, 139, 47, 151, 151, 47, 47, 109

Offset: 1

Author

Jason Earls, May 26 2003

Keywords

• nonn

Comments

All terms here are either 1 or prime.

Links

• Bill McEachen, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A049614.

Programs

Mathematica

A082956[n_] := NextPrime[#] - # & [n!/Product[Prime[i], {i, PrimePi[n]}]];
Array[A082956, 100] (* Paolo Xausa, Aug 02 2024 *)

PARI

a(n)= my(C=n!/prod(i=1, primepi(n), prime(i))); nextprime(C) - C; \\ Michel Marcus, Jul 31 2024