A082434 Let q_n be least prime > x_n := 1 + 2*n!; sequence gives a(n) = q_n-x_n+1.

3, 3, 5, 5, 11, 7, 11, 11, 29, 29, 13, 71, 29, 19, 19, 37, 23, 23, 41, 29, 53, 53, 89, 29, 41, 41, 59, 227, 79, 41, 101, 73, 61, 41, 37, 59, 67, 127, 67, 223, 71, 43, 53, 71, 71, 113, 239, 71, 313, 157

Offset

1,1

Links

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

Formula

a(n)=nextprime(2*n!+1)-2*n!, where nextprime is A151800.

Example

a(4) = 5 because 2*4!+1=49, the next prime is 51 and the difference between 53 and 48 is 13.

Mathematica

Do[If[PrimeQ[NextPrime[2*n!+1]-2*n! ], Print[n]], {n, 100}]
f[x_]:=Module[{n=2x!}, NextPrime[n+1]-n]
f/@Range[60]  (* Harvey P. Dale, Feb 14 2011 *)

Prog

(PARI) vector(100, n, nextprime(2*n!+2)-2*n!) \\ Charles R Greathouse IV, Feb 14 2011

Crossrefs

Sequence in context: A099536 A374075 A345001 * A078752 A343045 A343041

Adjacent sequences: A082431 A082432 A082433 * A082435 A082436 A082437

Keyword

hard,nonn

Author

Maciej Ulas (maciejulas(AT)poczta.onet.pl), Apr 25 2003

Status

approved