|
| |
|
|
A139073
|
|
Smallest prime number of the form (n+k!)/n.
|
|
31
| |
|
|
2, 2, 3, 7, 1009, 2, 5702401, 631, 4481, 13, 566092801, 3, 23452949585516450807808000001, 259201, 337, 2521, 3553839003727872684550301886383176323956736000000001, 41
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| a = {}; Do[ k = 1; While[ ! PrimeQ[ (k! + n)/n ], k++ ]; AppendTo[ a, (k! + n)/n ], {n, 1, 100} ]; a [Corrected May 06 2008]
|
|
|
PROG
| (PARI) a(n)=my(k, t); until(denominator(t=k++!/n+1)==1&&ispseudoprime(t), ); t \\ Charles R Greathouse IV, Jul 19 2011
|
|
|
CROSSREFS
| Cf. A082672, A089085, A089130, A117141, A007749, A139056, A139057, A139058, A139059, A139060, A139061, A139061, A139062, A139063, A139064, A139065, A139066, A020458, A139068, A137390, A139070, A139071, A139072, A139073, A139074, A139074, A139075, A136019, A136020, A136026, A136027.
Sequence in context: A143673 A089543 A058023 * A099870 A110985 A153216
Adjacent sequences: A139070 A139071 A139072 * A139074 A139075 A139076
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Apr 07 2008
|
| |
|
|
