OFFSET
1,1
COMMENTS
Minimal number of digits in n is 5.
n such that sum of even digits equals sum of odd digits in A036301.
LINKS
Marius A. Burtea, Table of n, a(n) for n = 1..5880
EXAMPLE
14467 is OK because 1^3+7^3=4^3+4^3+6^3.
MATHEMATICA
oeQ[n_]:=Module[{idn = IntegerDigits[n]}, Total[Select[idn, OddQ]^3] == Total[Select[idn, EvenQ]^3]]; Select[Range[100000], oeQ] (* Harvey P. Dale, Sep 23 2011 *)
PROG
(PARI) ok(n)={my(v=digits(n)); sum(i=1, #v, v[i]^3*if(v[i]%2, 1, -1))==0} \\ Andrew Howroyd, Dec 10 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Nov 01 2002
STATUS
approved