%I #6 Nov 17 2018 21:10:05
%S 1,8,3,4,5,78,28,32,36,40,176,528,624,280,30,144,1088,432,1273,120,
%T 1869,440,3427,1632,2000,2080,1701,2268,10179,480,5270,2464,660,1632,
%U 4970,1044,222,2242,351,3120,5576,798,1032,5896,630,230,1081,8064,9261,9500
%N Least multiple of n such that every partial concatenation followed by a 1 is prime.
%e 11, 181, 183, 1834, 183451, etc. are all prime.
%t s = ""; Do[k = 1; While[ !PrimeQ[ToExpression[s <> ToString[k*n] <> "1"]], k++ ]; Print[k*n]; s = s <> ToString[k*n], {n, 1, 100}] (* _Ryan Propper_, Sep 21 2005 *)
%K base,nonn
%O 1,2
%A _Amarnath Murthy_, Aug 03 2005
%E More terms from _Ryan Propper_, Sep 21 2005
|