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

Author

Olivier Gérard

Keywords

• nonn
• base
• fini
• full

Crossrefs

Cf. A014778, A014886.

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).