OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
f[n_] := Module[{e2 = IntegerExponent[n, 2], e3 = IntegerExponent[n, 3]}, Product[Prime[i], {i, 1, e3}] * 2^(e2 - e3)];
With[{max = 10^5}, f /@ Join[{1}, Sort[Flatten[Table[2^i*3^j, {i, 1, Log2[max]}, {j, 1, Min[i, Log[3, max/2^i]]}]]]]] (* Amiram Eldar, Jul 11 2023 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Reinhard Zumkeller, Nov 04 2006
EXTENSIONS
Name corrected and missing terms inserted by Amiram Eldar, Jul 11 2023
STATUS
approved