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,1

Links

Table of n, a(n) for n=1..58.

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

Cf. A140485-A140489.

Sequence in context: A172323 A190080 A184812 * A310189 A293788 A319480

Adjacent sequences: A140484 A140485 A140486 * A140488 A140489 A140490

Keyword

nonn

Author

Eric Angelini, Jun 25 2008

Extensions

More terms from Stefan Steinerberger, Jul 01 2008

Status

approved