A014887 n is equal to the number of 1's in all numbers <= n written in base 7.

1, 3930, 6044, 61879, 137256

Offset

1,2

Links

Table of n, a(n) for n=1..5.

Mathematica

Module[{nn=137300, dc}, dc=Accumulate[DigitCount[Range[nn], 7, 1]]; Position[ Thread[ {Range[nn], dc}], _?(#[[1]]==#[[2]]&), 1, Heads-> False]]//Flatten (* Harvey P. Dale, Oct 10 2021 *)

Crossrefs

Cf. A014778, A014886.

Sequence in context: A335789 A250671 A179139 * A251823 A031822 A288894

Adjacent sequences: A014884 A014885 A014886 * A014888 A014889 A014890

Keyword

nonn,base,fini,full

Author

Olivier Gérard

Extensions

List proved complete by Hugo van der Sanden (cf. A014886).

Status

approved