For example with 370: (073+037+307+370+703+730)/6 = 370.
MAPLE
read("transforms3") ; isrep := proc(n) if nops(convert(convert(n, base, 10), set)) = 1 then true; else false; fi; end: a160818 := BFILETOLIST("b160818.txt") ; for i from 1 to 400 do a := op(i, a160818) ; if not isrep(a) then printf("%d, ", a) ; fi; od: # R. J. Mathar, Jul 04 2009
MATHEMATICA
Select[Range[37, 630000, 37], Count[DigitCount[#], 0]<9&&Mean[FromDigits/@Permutations[IntegerDigits[#]]]==#&] (* The program generates the first 12 terms of the sequence. *) (* Harvey P. Dale, Mar 27 2026 *)