19 lines
425 B
Plaintext
19 lines
425 B
Plaintext
-- Cache factorials from 0 to 11.
|
|
local fact = {[0] = 1}
|
|
for n = 1, 11 do fact[n] = fact[n - 1] * n end
|
|
|
|
for b = 9, 12 do
|
|
print($"The factorions for base {b} are:")
|
|
for i = 1, 1_499_999 do
|
|
local sum = 0
|
|
local j = i
|
|
while j > 0 do
|
|
local d = j % b
|
|
sum += fact[d]
|
|
j //= b
|
|
end
|
|
if sum == i then io.write($"{i} ") end
|
|
end
|
|
print("\n")
|
|
end
|