OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
g:= proc(x) local j; seq(8*x+j, j=1..7) end proc:
h:= x -> 8*x:
B[1, 0]:= {$1..7}:
for d from 2 to 5 do
B[d, 0]:= map(g, B[d-1, 0]);
for i from 1 to min(d-2, 3) do
B[d, i]:= map(g, B[d-1, i]) union map(h, B[d-1, i-1])
od;
if d <= 4 then B[d, d-1]:= map(h, B[d-1, d-2]) fi;
od:
sort(convert(B[4, 3] union B[5, 3], list)); # Robert Israel, Jan 15 2019
MATHEMATICA
Select[Range[10000], DigitCount[#, 8, 0]==3&] (* Harvey P. Dale, Nov 25 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved