OFFSET
1,1
EXAMPLE
80855 is in the sequence because 80855 = (8! + 0! + 8! + 5! + 5!) - (8 + 0 + 8 + 5 + 5).
MATHEMATICA
okQ[n_]:=Module[{idn=IntegerDigits[n]}, n==Total[idn!]-Total[idn]]; Select[Range[81000], okQ] (* Harvey P. Dale, Aug 26 2011 *)
CROSSREFS
KEYWORD
base,fini,full,nice,nonn
AUTHOR
Farideh Firoozbakht, Aug 22 2004
STATUS
approved