OFFSET
1,2
EXAMPLE
sigma(444119)=4!!*4!!*4!!*1!!*1!!*9!!, so 444119 is in the sequence.
MATHEMATICA
Select[Range[210000], DivisorSigma[1, # ]==Apply[Times, IntegerDigits[ # ]!! ]&]
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Farideh Firoozbakht, Jul 07 2009
STATUS
approved