%I A104179
%S A104179 2,3,5,7,23,37,53,73,223,233,337,353,373,523,733,773,2237,2333,3373,3533,
%T A104179 3733,5233,5237,5323,7333,7523,23333,23773,25237,32237,33533,33773,
%U A104179 35323,35353,37223,37337,52237,53233,53353,53773,73523,75323,77323
%N A104179 Primes that are either single-digit primes or a concatenation of two 
               earlier terms.
%H A104179 Jean-Marc Falcoz, <a href="b104179.txt">Table of n, a(n) for n = 1..1003</
               a>
%F A104179 Up to 10^12 there are only 1003 terms and the n-th term seems to be roughly 
               n^(10/e). - Jean-Marc Falcoz (jeanmarcfalcoz(at)vtxnet.ch), Mar 28 
               2009
%o A104179 (PARI from Maximilian Hasler) isDW(p,i=1)={while(p>i*=10,setminus(Set(divrem(p,
               i)),a)|return(eval(Set(Vec(Str(p)))[1])));p<9}
%o A104179 a=[]; forprime( p=2, 99999, isDW(p) & !print1(p",") & a=setunion(a,Set(p)))
%Y A104179 Sequence in context: A154385 A125525 A019546 this_sequence A096148 A124674 
               A020994
%Y A104179 Adjacent sequences: A104176 A104177 A104178 this_sequence A104180 A104181 
               A104182
%K A104179 nonn,base
%O A104179 1,1
%A A104179 David W. Wilson (davidwwilson(AT)comcast.net), Mar 27 2009
%E A104179 More terms from Maximilian Hasler (maximilian.hasler(AT)gmail.com), Mar 
               28 2009