13 lines
279 B
Text
13 lines
279 B
Text
var facts=[0..12].pump(List,fcn(n){ (1).reduce(n,fcn(N,n){ N*n },1) }); #(1,1,2,6....)
|
|
fcn factorions(base){
|
|
fs:=List();
|
|
foreach n in ([1..1_499_999]){
|
|
sum,j := 0,n;
|
|
while(j){
|
|
sum+=facts[j%base];
|
|
j/=base;
|
|
}
|
|
if(sum==n) fs.append(n);
|
|
}
|
|
fs
|
|
}
|