|
| |
|
|
A151893
|
|
a(n) = smallest number k such that n! + k-th prime after n! is prime.
|
|
3
| |
|
|
1, 1, 1, 1, 2, 1, 1, 2, 4, 10, 2, 4, 3, 1, 1, 4, 2, 9, 14, 1, 6, 14, 6, 5, 1, 11, 3, 35, 14, 20, 4, 1, 10, 1, 1, 6, 37, 33, 25, 17, 62, 2, 5, 26, 12, 10, 11, 37, 9, 9, 4, 50, 32, 9, 9, 7, 9, 47, 10, 40, 80, 60, 3, 18, 6, 2, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
MATHEMATICA
| a = {}; Do[k = 1; While[ ! PrimeQ[n! + NextPrime[n!, k]], k++ ]; Print[k]; AppendTo[a, k], {n, 1, 200}]; a (*Artur Jasinski*)
|
|
|
CROSSREFS
| Cf. A002981, A151892, A151894, A151903, A139213, A139214.
Sequence in context: A024735 A024957 A153914 * A000361 A135723 A125311
Adjacent sequences: A151890 A151891 A151892 * A151894 A151895 A151896
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Apr 12 2008
|
| |
|
|
