This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A114755 #10 Dec 05 2013 19:57:14 %S A114755 13,233,0,12343,345673,0,5678910113,54555657585960613,0, %T A114755 373839404142434445463,17181920212223242526273,0,2345678910111213143, %U A114755 23242526272829303132333435363,0,8910111213141516171819202122233 %N A114755 Smallest prime of the form: n successive positive integers in ascending order followed by a 3. a(3k) = 0 as no such prime exists. %e A114755 a(4) = 12343, four successive positive integers 1,2,3,4 in ascending order followed by a 3. %t A114755 a[n_]:=If[Mod[n, 3]==0, 0, (For[m=1, (v={};Do[v=Join[v, IntegerDigits[k]], {k, m, m+n-1}]);!PrimeQ[10FromDigits[v]+3], m++ ];10FromDigits[v]+3)];Table[a[n], {n, 17}] - Farideh Firoozbakht %t A114755 f[n_] := Block[{t = Range@n}, If[ Mod[n, 3] == 0, 0, While[p = FromDigits@Flatten@IntegerDigits@Join[t, {3}]; !PrimeQ@p, t++ ]; p]]; Array[f, 20] (* _Robert G. Wilson v_ *) %Y A114755 Cf. A114754, A114756, A114757, A114758, A114759, A112716, A108145. %K A114755 base,nonn %O A114755 1,1 %A A114755 _Amarnath Murthy_, Jan 01 2006 %E A114755 Extended by _Robert G. Wilson v_, _Ray Chandler_ and _Farideh Firoozbakht_, Jan 02 2006