OFFSET
1,2
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
MATHEMATICA
smooth3Q[n_] := FactorInteger[n][[-1, 1]] <= 3;
a[n_] := For[k = n, True, k--, If[smooth3Q[k], Return[k]]];
Table[a[n], {n, 1, 100}] (* Jean-François Alcover, Oct 14 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jul 07 2010
EXTENSIONS
Definition corrected by Georg Fischer, Aug 05 2021
STATUS
approved