A140487 Trajectory of 3 under repeated application of the map: n -> n + second-smallest number that does not divide n.

3, 7, 10, 14, 18, 23, 26, 30, 37, 40, 46, 50, 54, 59, 62, 66, 71, 74, 78, 83, 86, 90, 97, 100, 106, 110, 114, 119, 122, 126, 131, 134, 138, 143, 146, 150, 157, 160, 166, 170, 174, 179, 182, 186, 191, 194, 198, 203, 206, 210, 218, 222, 227, 230, 234, 239, 242, 246

Offset: 1

Author

Eric Angelini, Jun 25 2008

Keywords

• nonn

Crossrefs

Cf. A140485-A140489.

Programs

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 *)

Extensions

More terms from Stefan Steinerberger, Jul 01 2008