A037335 - OEIS

%I #11 Jun 21 2021 02:47:18

%S 1,2,3,4,5,6,7,70,71,130,131,132,133,134,135,260,261,262,263,320,321,

%T 322,323,324,325,326,327,390,391,450,451,452,453,454,455,1080,1081,

%U 1082,1083,1084,1085,1086,1087,1144,1145,1146,1147,1148,1149,1208,1209,1272

%N Numbers whose base-8 and base-10 expansions have the same digit sum.

%t Select[Range[1200],Total[IntegerDigits[#]]==Total[IntegerDigits[#,8]]&] (* _Harvey P. Dale_, May 21 2018 *)

%o (Python)

%o def ok(n): return sum(map(int, str(n))) == sum(map(int, oct(n)[2:]))

%o print(list(filter(ok, range(1, 1273)))) # _Michael S. Branicky_, Jun 20 2021

%K nonn,base

%O 1,2

%A _Clark Kimberling_