A173575 5-Factorions: equal to the sum of the quintuple factorials of their digits in base 10.

1, 2, 3, 4, 5, 6, 39

Offset: 1

Author

Paolo P. Lava and Giorgio Balzarotti, Feb 22 2010

Keywords

• easy
• fini
• nonn
• base

Examples

			39 -> 3!!!!! + 9!!!!! = 3 + 9*4 = 3 + 36 = 39.
		

Crossrefs

A014080, A097653, A173573, A173574, A173576, A173577

Programs

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,5);