OFFSET
1,1
MATHEMATICA
d[n_]:=IntegerDigits[n]; co[n_, k_]:=Nest[Flatten[d[{#, n}]]&, n, k-1]; t={}; Do[If[!PrimeQ[n]&&Total[d[n]]==Total[d[Total[Times@@@(x=FactorInteger[n])]]]==Total[Flatten[d[co@@@x]]], AppendTo[t, n]], {n, 4, 2435}]; t (* Jayanta Basu, Jun 04 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 04 1999
STATUS
approved