%I #15 Apr 03 2023 14:34:41
%S 11,211,5431,76541,17161514131,1211109871,98765431,876543211,
%T 9876543211,242322212019181716151,11109876543211,
%U 1131121111101091081071061051041031021,555453525150494847464544431
%N Smallest prime of the form: n successive positive integers in descending order followed by a 1.
%H Robert Israel, <a href="/A114758/b114758.txt">Table of n, a(n) for n = 1..173</a>
%e a(4) = 76541, four successive positive integers 7,6,5,4 in descending order followed by a 1.
%p f:= proc(n) local k,p,j;
%p for k from 0 do
%p p:= parse(cat(seq(k+j,j=n .. 1,-1), 1));
%p if isprime(p) then return p fi
%p od
%p end proc:map(f, [$1..15]); # _Robert Israel_, Apr 03 2023
%t a[n_]:=(For[m=1, (v={};Do[v=Join[v, IntegerDigits[k]], {k, m+n-1, m, -1}]);!PrimeQ[10FromDigits[v]+1], m++ ];10FromDigits[v]+1);Table[a[n], {n, 14}] (* _Farideh Firoozbakht_, Jan 02 2006 *)
%t f[n_] := Block[{t = Reverse@Range@n}, While[p = FromDigits@Flatten@IntegerDigits@Join[t, {1}]; ! PrimeQ@p, t++ ]; p]; Array[f, 13] (* _Robert G. Wilson v_, Jan 03 2006 *)
%Y Cf. A113514, A114754, A114755, A114756, A114757, A114759, A112716, A108145, A114761.
%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
%E More terms from _Robert G. Wilson v_, Jan 03 2006