|
|
A173577
|
|
7-Factorions: equal to the sum of the 7-fold factorials of their digits in base 10.
|
|
4
|
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
19 -> 1!!!!!!! + 9!!!!!!! = 1 + 9*2 = 1 + 18 = 19.
|
|
MAPLE
|
P:=proc(n, m) local a, b, i, j, k, x, w; for i from 1 by 1 to n do a:=0; b:=0; w:=0; k:=i; while k>0 do w:=k-(trunc(k/10)*10); j:=w; x:=w-m; if w=0 then b:=1; else while x>0 do j:=j*x; x:=x-m; od; b:=j; fi; a:=a+b; k:=trunc(k/10); od; if a=i then lprint(i, a); fi; od; end: P(1000, 7);
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,fini,full,nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|