A139207 Smallest father factorial prime p of order n = smallest prime of the form (p!-n)/n where p is prime.
5, 2, 2947253997913233984847871999999, 29, 23, 19, 719, 4989599, 39520825343999, 11, 11058645491711999, 419, 479001599, 359, 7, 860234568201646565394748723848806399999999
Offset: 1
Crossrefs
Programs
-
Mathematica
a = {}; Do[k = 1; While[ ! PrimeQ[(Prime[k]! - n)/n], k++ ]; Print[a]; AppendTo[a, (Prime[k]! - n)/n], {n, 1, 100}]; a
Comments