OFFSET
1,2
COMMENTS
a(n)<=2^k for n<=2^k.
a(n)=n for n in A000961. - Ivan Neretin, Apr 30 2016
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Smooth Number.
MATHEMATICA
a[n_] := Module[{p, k}, p = FactorInteger[n][[1, 1]]; For[k = n, True, k++, If[FactorInteger[k][[-1, 1]] <= p, Return[k]]]];
Table[a[n], {n, 1, 100}] (* Jean-François Alcover, Oct 15 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 12 2003
STATUS
approved