[go: up one dir, main page]

login
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
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
KEYWORD
nonn
AUTHOR
Artur Jasinski, Apr 07 2008
STATUS
approved