A104639 - OEIS

%I #10 Aug 14 2018 09:00:11

%S 0,1,1,2,1,2,1,1,1,3,0,2,1,3,0,3,1,2,2,4,2,4,2,3,2,1,2,2,3,4,1,3,0,2,

%T 3,4,2,3,0,5,3,4,1,3,1,1,3,2,2,4,2,5,3,3,2,2,1,1,2,5,4,4,4,5,4,4,3,3,

%U 3,4,0,3,2,5,3,3,2,3,2,4,2,2,1,3,3,4,3,4,3,4,0,4,3,4,1,4,2,2,2,6

%N Number of even digits in n^3.

%H G. C. Greubel, <a href="/A104639/b104639.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A196563(n^3). - _Michel Marcus_, Oct 05 2013

%t Table[Count[IntegerDigits[n^3], _?EvenQ], {n, 100}] (* _G. c. Greubel_, Aug 13 2018 *)

%o (PARI) a(n) = my(d = digits(n^3)); sum(i=1, #d, 1 - (d[i] % 2)); \\ _Michel Marcus_, Oct 05 2013

%Y Cf. A104640, A196563.

%K easy,nonn,base

%O 1,4

%A _Zak Seidov_, Mar 18 2005