OFFSET
1,2
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Select[Range[0, 10000], Plus @@Select[IntegerDigits[ # ], OddQ]\[Equal]Plus @@Select[IntegerDigits[ # ], EvenQ]&] (* Zak Seidov, Feb 17 2005 *)
PROG
(Magma) [ n: n in [0..1300] | (#A eq 0 select 0 else &+A) eq (#B eq 0 select 0 else &+B) where A is [ d: d in D | IsOdd(d) ] where B is [ d: d in D | IsEven(d) ] where D is Intseq(n) ];
(PARI) select( is_A036301(n)=!vecsum(apply(t->(-1)^t*t, digits(n))), [0..1999]) \\ This defines the function is_A036301 = !A071650; the surrounding select(...) just serves as a check and illustration. - M. F. Hasler, Dec 09 2018
A36301=[112]; A036301(n, L=#A36301)={while(n>L, A36301=concat(A36301, next_A036301(A36301[L], L, L+=1))); A36301[n]} \\ M. F. Hasler, Aug 11 2023
next_A036301(N, L=#A36301, k=setsearch(A36301, N+1, 1)) = if(k>L, until( is_A036301(N+=1), ); N, k, A36301[k], N+1) \\ next larger term: min { a(k) > N }. - M. F. Hasler, Aug 11 2023
(Python)
def eodiff(n):
digs = list(map(int, str(n)))
return abs(sum(d for d in digs if d%2==0)-sum(d for d in digs if d%2==1))
def aupto(lim): return [m for m in range(lim+1) if eodiff(m) == 0]
print(aupto(1298)) # Michael S. Branicky, Feb 21 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Dec 15 1998
EXTENSIONS
Zero added by Zak Seidov, Nov 22 2010
Name edited by Michel Marcus, Jan 14 2021
STATUS
approved