OFFSET
1,2
MATHEMATICA
Select[Range[200], Total[IntegerDigits[#, 4]]==Total[IntegerDigits[#, 7]]&] (* Harvey P. Dale, Feb 17 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved