A216205 Incidences of n such that A006862(n) - n! is prime where A006862 are the Euclid numbers.

0, 1, 2, 6, 8, 19, 94, 226, 2277, 2742, 2868

Offset

0,3

Links

Table of n, a(n) for n=0..10.

Example

a(3) = 6 because A006862(6) - 6! = 30031-720 = 29311 and is the 3rd such prime.

Mathematica

primeproduct[q_] := Product[Prime[r], {r, 1, q}]; nextterm[n_] := (p=n+1; While[!PrimeQ[primeproduct[p]+1-p!], p++]; p); Table[Nest[nextterm, 0, m], {m, 1, 5}] (* changing 5 to 10 will give all 10 terms but takes a long time *)

Crossrefs

Cf. A006862, A014545.

Sequence in context: A098092 A221316 A106164 * A072230 A028332 A183171

Adjacent sequences: A216202 A216203 A216204 * A216206 A216207 A216208

Keyword

nonn,more

Author

Frank M Jackson, Mar 12 2013

Status

approved