OFFSET
1,1
MATHEMATICA
ds[n_]:=Total[IntegerDigits[n]]; t={}; Do[If[!PrimeQ[n]&&ds[n]==ds[Total[ Times@@@FactorInteger[n]]], AppendTo[t, n]], {n, 4, 1230}]; t (* Jayanta Basu, Jun 04 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 04 1999
EXTENSIONS
Title made more precise by Sean A. Irvine, Nov 30 2020
STATUS
approved