%I A089393
%S A089393 2,11,101,2221,20261,220021,2000221,20266681,228440489
%N A089393 Smallest n-digit number from A089392.
%C A089393 A089392 has no members with 10, 11, or 12 digits. It is unlikely that 
               it has any with more than 12 digits. - David Wasserman (wasserma(AT)spawar.navy.mil), 
               Sep 15 2005
%p A089393 with(combinat): ds:=proc(s) local j: RETURN(add(s[j]*10^(j-1),j=1..nops(s))):end: 
               for d from 1 to 10 do sch:=[seq([1,op(i),d+1],i=[[],seq([j],j=2..d)])]: 
               for n from 10^(d-1) to 10^d-1 do sn:=convert(n,base,10): fl:=0: for 
               s in sch do m:=add(j,j=[seq(ds(sn[s[i]..s[i+1]-1]),i=1..nops(s)-1)]): 
               if not isprime(m) then fl:=1: break fi od: if fl=0 then printf("%d, 
               ",n):break fi od od: (C. Ronaldo)
%Y A089393 Cf. A089392, A089394.
%Y A089393 Sequence in context: A069663 A121419 A099701 this_sequence A069664 A130150 
               A115941
%Y A089393 Adjacent sequences: A089390 A089391 A089392 this_sequence A089394 A089395 
               A089396
%K A089393 nonn,base
%O A089393 1,1
%A A089393 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Nov 10 2003
%E A089393 a(5) and a(6) from Mark Hudson (mrmarkhudson(AT)hotmail.com), Dec 15 
               2004
%E A089393 Corrected and extended by C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 
               25 2004
%E A089393 Two more terms from David Wasserman (wasserma(AT)spawar.navy.mil), Sep 
               15 2005