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 A216310 #15 Mar 27 2016 04:57:07
%S A216310 113,293,683,743,773,863,953,983,1163,1193,1373,1523,1583,1733,1823,
%T A216310 1913,2003,2053,2153,2213,2243,2273,2423,2503,2633,2663,2753,2843,
%U A216310 3023,3413,3433,3593,3623,3643,3803,3833,3863,4363,4373,4463,4493,4523,4583,4603
%N A216310 The prime ending in 3 is the only prime in a decade.
%C A216310 Primes of the form 10n+3 such that 10n+1, 10n+7, and 10n+9 are composite. - _Charles R Greathouse IV_, Sep 06 2012
%H A216310 V. Raman, <a href="/A216310/b216310.txt">Table of n, a(n) for n = 1..10000</a>
%F A216310 a(n) ~ 4n log n. - _Charles R Greathouse IV_, Sep 06 2012
%t A216310 t = {}; Do[ps = Select[Range[10*n, 10*n + 9], PrimeQ]; If[ps == {10*n + 3}, AppendTo[t, ps[[1]]]], {n, 0, 595}]; t (* _T. D. Noe_, Sep 04 2012 *)
%t A216310 Select[10*Range[500]+3,PrimeQ[#]&&AllTrue[#+{-2,4,6},CompositeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Mar 27 2016 *)
%Y A216310 Subsequence of A030431. Cf. A032352, A007811, A078494.
%K A216310 nonn,base,easy
%O A216310 1,1
%A A216310 _V. Raman_, Sep 03 2012