|
| |
|
|
A036301
|
|
Numbers n such that sum of even digits of n equals sum of odd digits of n.
|
|
9
| |
|
|
0, 112, 121, 134, 143, 156, 165, 178, 187, 211, 314, 336, 341, 358, 363, 385, 413, 431, 516, 538, 561, 583, 615, 633, 651, 718, 781, 817, 835, 853, 871, 1012, 1021, 1034, 1043, 1056, 1065, 1078, 1087, 1102, 1120, 1201, 1210, 1223, 1232, 1245, 1254, 1267, 1276, 1289, 1298
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| Select[Range[0, 10000], Plus @@Select[IntegerDigits[ # ], OddQ]\[Equal]Plus @@Select[IntegerDigits[ # ], EvenQ]&] (Zak Seidov (zakseidov(AT)yahoo.com), 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) ];
|
|
|
CROSSREFS
| Sequence in context: A129947 A096680 A109383 * A117723 A157662 A095615
Adjacent sequences: A036298 A036299 A036300 * A036302 A036303 A036304
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Patrick De Geest (pdg(AT)worldofnumbers.com), Dec 15 1998.
|
|
|
EXTENSIONS
| Zero added by Zak Seidov (zakseidov(AT)yahoo.com), Nov 22 2010
|
| |
|
|
