|
| |
|
|
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;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..20.
|
|
|
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 Joseph Stephan Orlovsky, 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
|
|
|
EXTENSIONS
|
Extended by Ray Chandler, Mar 07 2010
Alternate Mathematica program provided by Harvey P. Dale, Dec. 12, 2010
|
|
|
STATUS
|
approved
|
| |
|
|
