A102677 Number of digits >= 6 in decimal representation of n.

0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 0, 0, 0, 0, 0

Offset

0,67

Comments

a(n) = 0 iff n is in A007092 (numbers in base 6). - Bernard Schott, Feb 02 2023

Links

Hieronymus Fischer, Table of n, a(n) for n = 0..10000

Formula

From Hieronymus Fischer, Jun 10 2012: (Start)

a(n) = Sum_{j=1..m+1} (floor(n/10^j + 2/5) - floor(n/10^j)), where m = floor(log_10(n)).

G.f.: g(x) = (1/(1-x))*Sum_{j>=0} (x^(6*10^j) - x^(10*10^j))/(1-x^10^(j+1)). (End)

Maple

p:=proc(n) local b, ct, j: b:=convert(n, base, 10): ct:=0: for j from 1 to nops(b) do if b[j]>=6 then ct:=ct+1 else ct:=ct fi od: ct: end: seq(p(n), n=0..116); # Emeric Deutsch, Feb 23 2005

Mathematica

Table[Total@ Take[Most@ DigitCount@ n, -4], {n, 0, 104}] (* Michael De Vlieger, Aug 17 2017 *)

Crossrefs

Cf. A007092, A027868, A054899, A055640, A055641, A102669-A102685, A117804, A122840, A122841, A160093, A160094, A196563, A196564. Partial sums see A102678.

Cf. A000120, A000788, A023416, A059015 (for base 2).

Sequence in context: A161385 A152907 A078786 * A145884 A030368 A258383

Adjacent sequences: A102674 A102675 A102676 * A102678 A102679 A102680

Keyword

nonn,base,easy

Author

N. J. A. Sloane, Feb 03 2005

Extensions

More terms from Emeric Deutsch, Feb 23 2005

Status

approved