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
KEYWORD
nonn
AUTHOR
Jacques Tramu, Jun 25 2008
EXTENSIONS
More terms from Harvey P. Dale, Apr 04 2015
STATUS
approved