|
| |
|
|
A140488
|
|
Trajectory of 5 under repeated application of the map: n -> n + second-smallest number that does not divide n.
|
|
1
| |
|
|
5, 8, 13, 16, 21, 25, 28, 33, 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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| a = {5}; Do[AppendTo[a, a[[ -1]] + Select[Range[a[[ -1]]], Mod[a[[ -1]], # ] > 0 &][[2]]], {60}]; a - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jul 01 2008
|
|
|
CROSSREFS
| Cf. A140485-A140489.
Sequence in context: A030606 A090661 A047615 * A058240 A097268 A003653
Adjacent sequences: A140485 A140486 A140487 * A140489 A140490 A140491
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Eric Angelini (Eric.Angelini(AT)kntv.be), Jun 25 2008
|
|
|
EXTENSIONS
| Corrected and extended by Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jul 01 2008
|
| |
|
|
