[seqfan] Re: A158911

[Richard Mathar]

http://list.seqfan.eu/pipermail/seqfan/2010-August/005804.html

Indeed, terms are missing, and just confirming Charles' list:

1,3,4,7,9,15,19,24,31,39,49,63,79,99,124,127,159,199,249,255,319,399,
499,511,624,639,799,999,1023,1249,1279,1599,1999,2047,2499,2559,3124,3199,
3999,4095,4999,5119,6249,6399,7999,8191,9999,10239,12499,12799,15624,15999,
16383,19999,20479,24999,25599,31249,31999


isA158911 := proc(n)
        tenn := 10^n ;
        ndgs := max(1,1+ilog10(tenn) ) ;
        tenn/ndgs ;
        type(%,'integer') ;
end proc:

for n from 1 to 210000 do
        if isA158911(n) then
                printf("%d,",n);
        end if;
end do: