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
Programs
-
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 *)
Extensions
List proved complete by Hugo van der Sanden (cf. A014886).