A104639 Number of even digits in n^3.
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, 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, 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
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Table[Count[IntegerDigits[n^3], ?EvenQ], {n, 100}] (* _G. c. Greubel, Aug 13 2018 *)
-
PARI
a(n) = my(d = digits(n^3)); sum(i=1, #d, 1 - (d[i] % 2)); \\ Michel Marcus, Oct 05 2013
Formula
a(n) = A196563(n^3). - Michel Marcus, Oct 05 2013