OFFSET
1,1
MAPLE
filter:= proc(n) local d1, d2, t;
t:= 8^n;
d1:= ilog10(t);
d2:= ilog10(n);
floor(t/10^(d1-d2)) = n
end proc:
select(filter, [$1..10^5]); # Robert Israel, Apr 10 2023
PROG
(Python)
from itertools import count, islice
def A362100_gen(startvalue=1): # generator of terms >= startvalue
a = 1<<3*(m:=max(startvalue, 1))
for n in count(m):
if (s:=str(n))==str(a)[:len(s)]:
yield n
a <<= 3
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
N. J. A. Sloane, Apr 10 2023, based on an email from Keith F. Lynch.
STATUS
approved