OFFSET
1,2
MATHEMATICA
Select[Range[1200], Total[IntegerDigits[#]]==Total[IntegerDigits[#, 8]]&] (* Harvey P. Dale, May 21 2018 *)
PROG
(Python)
def ok(n): return sum(map(int, str(n))) == sum(map(int, oct(n)[2:]))
print(list(filter(ok, range(1, 1273)))) # Michael S. Branicky, Jun 20 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved