A114754 - OEIS

%I #10 Dec 05 2013 19:57:14

%S 11,10111,1231,67891,9101112131,3456781,91011121314151,45678910111,

%T 1234567891,303132333435363738391,12345678910111,

%U 939495969798991001011021031041,91011121314151617181920211

%N Smallest prime of the form: n successive positive integers in ascending order followed by a 1.

%e a(2) = 10111= 10 followed by 11 followed by 1.

%e a(3) = 1231, three successive positive integers 1,2,3 in ascending order followed by a 1.

%t a[n_]:=(For[m=1, (v={};Do[v=Join[v, IntegerDigits[k]], {k, m, m+n-1}]);!PrimeQ[10FromDigits[v]+1], m++ ];10FromDigits[v]+1);Table[a[n], {n, 14}] - Farideh Firoozbakht

%t f[n_] := Block[{t = Range@n}, While[p = FromDigits@Flatten@IntegerDigits@Join[t, {1}]; !PrimeQ@p, t++ ]; p]; Array[f, 13] (* _Robert G. Wilson v_ *)

%Y Cf. A113513, A114755, A114756, A114757, A114758, A114759, A112716, A108145.

%K base,nonn

%O 1,1

%A _Amarnath Murthy_, Jan 01 2006

%E Extended by _Robert G. Wilson v_, _Ray Chandler_ and _Farideh Firoozbakht_, Jan 02 2006