A375213 Even numbers with equal numbers of even and odd digits.
10, 12, 14, 16, 18, 30, 32, 34, 36, 38, 50, 52, 54, 56, 58, 70, 72, 74, 76, 78, 90, 92, 94, 96, 98, 1010, 1012, 1014, 1016, 1018, 1030, 1032, 1034, 1036, 1038, 1050, 1052, 1054, 1056, 1058, 1070, 1072, 1074, 1076, 1078, 1090, 1092, 1094, 1096, 1098, 1100
Offset: 1
Examples
1010 is even and has two even digits (0,0) and two odd digits (1,1).
Links
- Jake L Lande, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
eeo[n_] := (id = IntegerDigits[n]; Count[EvenQ@id, True] == Count[OddQ@id, True]); Select[Select[Range[1100], eeo], Mod[#, 2] == 0 &]
Comments