%I A111436
%S A111436 1,8,3,4,5,78,28,32,36,40,176,528,624,280,30,144,1088,432,1273,120,1869,
%T A111436 440,3427,1632,2000,2080,1701,2268,10179,480,5270,2464,660,1632,4970,
%U A111436 1044,222,2242,351,3120,5576,798,1032,5896,630,230,1081,8064,9261,9500
%N A111436 Least multiple of n such that every partial concatenation followed by 
               a 1 is prime.
%e A111436 11,181,183,1834,183451,...etc. are all prime.
%t A111436 s = ""; Do[k = 1; While[ !PrimeQ[ToExpression[s <> ToString[k*n] <> "1"]], 
               k++ ]; Print[k*n]; s = s <> ToString[k*n], {n, 1, 100}] (Propper)
%Y A111436 Sequence in context: A070474 A070597 A091895 this_sequence A014549 A021549 
               A013665
%Y A111436 Adjacent sequences: A111433 A111434 A111435 this_sequence A111437 A111438 
               A111439
%K A111436 base,nonn
%O A111436 1,2
%A A111436 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Aug 03 2005
%E A111436 More terms from Ryan Propper (rpropper(AT)stanford.edu), Sep 21 2005