login
A140492
Trajectory of 3 under repeated application of the map: n -> n + third-smallest number that does not divide n.
4
3, 8, 14, 19, 23, 27, 32, 38, 43, 47, 51, 56, 62, 67, 71, 75, 81, 86, 91, 95, 99, 104, 110, 116, 122, 127, 131, 135, 141, 146, 151, 155, 159, 164, 170, 176, 182, 187, 191, 195, 201, 206, 211, 215, 219, 224, 230, 236, 242, 247, 251, 255, 261, 266, 271, 275
OFFSET
1,1
MATHEMATICA
Join[{3}, NestList[#+Complement[Range[#], Divisors[#]][[3]]&, 8, 50]] (* Harvey P. Dale, Apr 04 2015 *)
PROG
(PARI) third(n) = {my(nb = 0, k = 1); while (nb != 3, if (n % k, nb++); if (nb != 3, k++); ); k; }
f(n) = n + third(n);
lista3(nn) = {a = 3; print1(a, ", "); for (n=2, nn, newa = f(a); print1(newa, ", "); a = f(a); ); } \\ Michel Marcus, Oct 04 2018
CROSSREFS
Cf. A140485, A140486, A140487, A140488, A140489 (second-smallest sequences).
Cf. A140490, A140491, A140493, A140494 (third-smallest sequences).
Sequence in context: A104656 A179993 A252658 * A184517 A028252 A299647
KEYWORD
nonn
AUTHOR
Jacques Tramu, Jun 25 2008
EXTENSIONS
More terms from Harvey P. Dale, Apr 04 2015
STATUS
approved