OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
27: 2+7=9, 27= 3 * 3 * 3, 3+3+3=9; 170: 170=2*5*17, 1+7+0=8, 2+5+17=24, 2*4=8.
MATHEMATICA
sdQ[n_]:=Total[IntegerDigits[n]]==Times@@IntegerDigits[Total[ Flatten[ Table[ #[[1]], {#[[2]]}]&/@FactorInteger[n]]]]; Select[Range[2, 2000], sdQ] (* Harvey P. Dale, Mar 01 2016 *)
CROSSREFS
KEYWORD
easy,base,nonn
AUTHOR
Felice Russo, Aug 13 2001
EXTENSIONS
Better description and more terms from Matthew Conroy, Aug 14 2001
STATUS
approved