|
Search: id:A100416
|
|
|
| A100416 |
|
Numbers n such that sum of the proper divisors of n is equal to d_1!+d_2!+...+d_k!, where d_1 d_2 ... d_k is the decimal expansion of n. |
|
+0
3
|
|
| 561653, 606061, 1649345, 2631227, 5657101, 25376713, 33805243, 38747603
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
There is no further term up to 60000000.
|
|
EXAMPLE
|
38747603 is in the sequence because {1,769,50387} is the set of proper
divisors of 38747603 and 3!+8!+7!+4!+7!+6!+0!+3!=1+769+50387.
|
|
MATHEMATICA
|
Do[h = IntegerDigits[n]; l = Length[h]; If[DivisorSigma[1, n] - n == Sum[h[[k]]!, {k, l}], Print[n]], {n, 60000000}]
|
|
CROSSREFS
|
Cf. A101697.
Adjacent sequences: A100413 A100414 A100415 this_sequence A100417 A100418 A100419
Sequence in context: A126722 A077456 A124514 this_sequence A068724 A121169 A090061
|
|
KEYWORD
|
base,more,nonn
|
|
AUTHOR
|
Farideh Firoozbakht (f.firoozbakht(AT)math.ui.ac.ir), Dec 12 2004
|
|
|
Search completed in 0.002 seconds
|
