OFFSET
1,1
COMMENTS
MATHEMATICA
a = {}; Do[k = 1; While[ ! PrimeQ[(Prime[k]! - n)/n], k++ ]; Print[a]; AppendTo[a, (Prime[k]! - n)/n], {n, 1, 100}]; a
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
Artur Jasinski, Apr 11 2008
STATUS
approved
