OFFSET
1,2
LINKS
Carole Dubois, Table of n, a(n) for n = 1..5001
MATHEMATICA
Select[Range[1000], Abs[Plus @@ Select[(d = IntegerDigits[#]), OddQ] - Plus @@ Select[d, EvenQ]] == 1 &] (* Amiram Eldar, Feb 02 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Eric Angelini and Carole Dubois, Feb 02 2021
STATUS
approved