login
A014885
n is equal to the number of 1's in all numbers <= n written in base 8.
0
1, 8177, 8178, 8179, 8180, 8181, 8182, 8183, 8184, 8192, 8193, 49137, 49138, 49139, 49140, 49141, 49142, 49143, 49144, 90112, 90113, 322096, 1048576, 1048577, 1056753, 1056754, 1056755, 1056756, 1056757, 1056758, 1056759, 1056760, 1056768, 1056769, 1097713, 1097714, 1097715, 1097716, 1097717, 1097718, 1097719, 1097720, 1138688, 1138689, 2396744
OFFSET
1,2
MAPLE
T:= 0: R:= NULL:
for n from 1 to (8^8-1)/(8-1) do
T:= T + numboccur(1, convert(n, base, 8));
if T = n then R:= R, n; count:= count+1;
fi od:
R; # Robert Israel, Dec 01 2020
MATHEMATICA
Module[{nn=106*10^4, n1s}, n1s=Accumulate[Table[DigitCount[n, 8, 1], {n, nn}]]; Position[Thread[{n1s, Range[nn]}], _?(#[[1]]==#[[2]]&), 1, Heads-> False]]// Flatten (* Harvey P. Dale, Feb 28 2020 *)
CROSSREFS
Cf. A014778.
Sequence in context: A096329 A126823 A205092 * A252217 A351448 A235095
KEYWORD
nonn,base,fini,full
STATUS
approved