OFFSET
1,1
MATHEMATICA
Table[Max[Select[Flatten[Table[2^a 3^b, {a, 0, Floor[Log2[10^n]]}, {b, Floor[Log[3, 10^n]]}]], #<10^n&]], {n, 20}] (* Harvey P. Dale, Jul 03 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Apr 04 2002
EXTENSIONS
More terms from Sascha Kurz, Apr 08 2002
STATUS
approved