A316867 - OEIS

%I #13 Aug 11 2018 14:08:59

%S 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,

%T 0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,1,1,1,1,1,1,2,1,

%U 1,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0

%N Number of times 6 appears in decimal expansion of n.

%e a(0) = 0 since the decimal representation of 0 does not contain the digit 6.

%e a(6) = 1 since 6 appears once in the decimal expansion of 6.

%t Array[ DigitCount[#, 10, 6] &, 105, 0]

%o (PARI) a(n) = #select(x->x==6, digits(n)); \\ _Michel Marcus_, Jul 20 2018

%Y Cf. A043513, A043514, A043515, A043516.

%Y Cf. A055641, A268643, A316863, A316864, A316865, A316866, A316868, A316869, A102683.

%K base,easy,nonn

%O 0,67

%A _Robert G. Wilson v_, Jul 15 2018