OFFSET
1,3
EXAMPLE
1 appears as (1)0111..., 2 appears as (10)111011..., 3 as 10(11)10111..., 4 as 101110111110111101(100)0...
MAPLE
A189799 := proc(n)
local abin , nbin , nlen;
abin := ListTools[Reverse](convert(A154703(100), base, 10)) ;
nbin := ListTools[Reverse](convert(n, base, 2)) ;
nlen := nops(nbin) ;
for i from 1 do
if verify(nbin, [op(i..i+nlen-1, abin)], 'sublist') then
return i;
end if;
end do:
return 0 ;
end proc:
seq(A189799(n), n=1..55) ; # R. J. Mathar, Jun 07 2011
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, May 24 2011
EXTENSIONS
Corrected by R. J. Mathar, Jun 07 2011
STATUS
approved