OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
EqedQ[n_]:= Module[{idn3 = IntegerDigits[n^3]}, Count[idn3, _?EvenQ] == Count[idn3, _?OddQ]]; Select[Range[2000], EqedQ] (* G. C. Greubel, Aug 14 2018 *)
PROG
(PARI) isok(n) = my(d = digits(n^3)); sum(i=1, #d, 1 - (d[i] % 2)) == sum(i=1, #d, d[i] % 2); \\ Michel Marcus, Oct 05 2013
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Mar 18 2005
STATUS
approved