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 (*Artur Jasinski*)
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
Artur Jasinski, Apr 11 2008
STATUS
approved