|
|
A139073
|
|
Smallest prime number of the form (n+k!)/n.
|
|
0
|
|
|
2, 2, 3, 7, 1009, 2, 5702401, 631, 4481, 13, 566092801, 3, 23452949585516450807808000001, 259201, 337, 2521, 3553839003727872684550301886383176323956736000000001, 41
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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-A139066, A020458, A139068, A137390, A139070-A139075, A136019, A136020, A136026, A136027.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|