OFFSET
1,1
COMMENTS
Numbers n such that in n^3, number of odd digits equals the number of even digits A104641. Numbers n such that in n^3, number of odd digits is larger than number of even digits A104693; rearrangement of positive integers according to number of odd and even digits in n^3 A104694, A104695; number of even digits in n^3 A104639, number of odd digits in n^3 A104640.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
EvedQ[n_]:= Module[{idn3 = IntegerDigits[n^3]}, Count[idn3, _?OddQ] < Count[idn3, _?EvenQ]]; Select[Range[2000], EvedQ] (* G. C. Greubel, Aug 14 2018 *)
PROG
(PARI) isok(n) = my(d = digits(n^3)); sum(i=1, #d, d[i] % 2) < sum(i=1, #d, 1 - (d[i] % 2)); \\ Michel Marcus, Oct 05 2013
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Mar 18 2005
EXTENSIONS
More terms from Michel Marcus, Oct 05 2013
STATUS
approved