login
A216205
Incidences of n such that A006862(n) - n! is prime where A006862 are the Euclid numbers.
0
0, 1, 2, 6, 8, 19, 94, 226, 2277, 2742, 2868
OFFSET
0,3
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
Sequence in context: A098092 A221316 A106164 * A072230 A028332 A183171
KEYWORD
nonn,more
AUTHOR
Frank M Jackson, Mar 12 2013
STATUS
approved