OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..3322
FORMULA
MATHEMATICA
a[n_] := Min[Table[2^(d-1)*3^(n/d-1), {d, Divisors[n]}]]; Array[a, 60]
PROG
(PARI) a(n) = vecmin(apply(d -> 2^(d-1)*3^(n/d-1), divisors(n)));
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Mar 29 2025
STATUS
approved
