(phixonline)-->
with javascript_semantics
for base=9 to 12 do
printf(1,"The factorions for base %d are: ", base)
for i=1 to 1499999 do
atom total = 0, j = i, d
while j>0 and total<=i do
d = remainder(j,base)
total += factorial(d)
j = floor(j/base)
end while
if total==i then printf(1,"%d ", i) end if
end for
printf(1,"\n")
end for