OFFSET
0,6
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
EXAMPLE
2^15={32}768, so a(15)=32.
MAPLE
for n from 0 to 100 do
L[n]:= sprintf("%d", 2^n);
A[n]:= 0;
for k from n-1 by -1 to 0 do
if StringTools[Search](L[k], L[n]) <> 0 then
A[n]:= 2^k; break
fi
od
od:
seq(A[n], n=0..100); # Robert Israel, Aug 16 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Patrick De Geest, Jun 15 1998
STATUS
approved