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
KEYWORD
nonn,base,fini,full
AUTHOR
STATUS
approved