OFFSET
1,2
MATHEMATICA
Select[Range[300], Total[IntegerDigits[#]]==Total[IntegerDigits[#, 4]]&] (* Harvey P. Dale, Jan 20 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved