A202242
n such that the sum of digit !! of n equals the sum of d|n, 1
14, 56, 28361, 119507, 191557, 287039, 691259, 750889
Offset: 1
Examples
56 is in the sequence because 5!! + 6!! = 15 + 48 = 63, and sum of the divisors 1< d< 56 = sigma(56) - 56 - 1 = 120 - 56 - 1 = 63.
Programs
-
Mathematica
Q[n_]:=Module[{a=Total[Rest[Most[Divisors[n]]]]}, a == Total[IntegerDigits[n]!!]]; Select[Range[2, 10^5], Q]
Comments