OFFSET
1,6
LINKS
FORMULA
MATHEMATICA
Take[Sort[Flatten[Table[{5^i 8^j, j}, {i, 0, 20}, {j, 0, 20}], 1]][[;; , 2]], 120] (* Harvey P. Dale, Nov 10 2024 *)
With[{max = 10^11}, IntegerExponent[Sort[Flatten[Table[5^i*8^j, {i, 0, Log[5, max]}, {j, 0, Log[8, max/5^i]}]]], 8]] (* Amiram Eldar, Jul 09 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved
