|
Search: id:A071771
|
|
|
| A071771 |
|
Least k > 0 such that the nextprime(k*primorial(n)) - k*primorial(n) is composite. |
|
+0
1
|
| |
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
For a(2): the second primorial (A002110) is 6. It is not until k = 413, or 6*413 = 2478, that the next prime > 2478 = 2503 less 2478 which equals 25 is a composite.
|
|
MATHEMATICA
|
Do[p = Product[ Prime[i], {i, 1, n}]; k = 1; While[ q = NextPrim[k*p] - k*p; q == 1 || PrimeQ[q], k++ ]; Print[k], {n, 1, 6}]
|
|
CROSSREFS
|
Cf. A002110, A005235, A071572.
Sequence in context: A060263 A033238 A118624 this_sequence A125034 A140024 A093259
Adjacent sequences: A071768 A071769 A071770 this_sequence A071772 A071773 A071774
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
David W. Wilson (davidwwilson(AT)comcast.net) and Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 04 2002
|
|
|
Search completed in 0.002 seconds
|
