|
| |
|
|
A037151
|
|
Smallest prime > n!.
|
|
13
| |
|
|
2, 3, 7, 29, 127, 727, 5051, 40343, 362897, 3628811, 39916801, 479001629, 6227020867, 87178291219, 1307674368043, 20922789888023, 355687428096031, 6402373705728037, 121645100408832089, 2432902008176640029
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| a(n) = A151800(A000142(n)) = A000142(n) + A033932(n).
|
|
|
MATHEMATICA
| PrimeNext[n_]:=Module[{k}, k=n+1; While[ !PrimeQ[k], k++ ]; k]; Table[PrimeNext[n! ], {n, 40}] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), May 30 2010]
Alternate: Table[NextPrime[n!], {n, 25}]
|
|
|
CROSSREFS
| Sequence in context: A084435 A072469 A004062 * A008840 A156313 A163075
Adjacent sequences: A037148 A037149 A037150 * A037152 A037153 A037154
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jud McCranie (JudMcCranie(AT)ugaalum.uga.edu)
|
|
|
EXTENSIONS
| Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Mar 07 2010
Alternate Mathematica program provided by Harvey P. Dale, Dec. 12, 2010
|
| |
|
|
