OFFSET
1,1
MATHEMATICA
a = {}; Do[m = 1; While[ ! IntegerQ[(n + Prime[m]!)/n], m++ ]; AppendTo[a, (n + Prime[m]!)/n], {n, 1, 100}]; a (*Artur Jasinski*)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Apr 11 2008
STATUS
approved