OFFSET
1,1
MATHEMATICA
a = {3, 7}; Do[AppendTo[a, a[[ -1]] + Select[Range[a[[ -1]]], Mod[a[[ -1]], # ] > 0 &][[2]]], {60}]; a (* Stefan Steinerberger, Jul 01 2008 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric Angelini, Jun 25 2008
EXTENSIONS
More terms from Stefan Steinerberger, Jul 01 2008
STATUS
approved