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 A174355 #9 Aug 21 2015 11:16:53
%S A174355 53,57,153,249,279,329,333,339,347,381,399,431,471,489,641,647,711,
%T A174355 821,851,923,959,987,1169,1239,1313,1383,1479,1547,1563,1589,1611,
%U A174355 1653,1677,1709,1773,1863,1887,1973,2031,2067
%N A174355 Natural numbers n such that the concatenations n//1331 and 1331//n are prime numbers.
%C A174355 See comments and references for A173836, A174213.
%C A174355 Intersection of A173579 and A174213. - _Michel Marcus_, Aug 27 2013
%D A174355 Marcus du Sautoy: Die Musik der Primzahlen. Auf den Spuren des groessten Raetsels der Mathematik, Beck, Muenchen 2004
%H A174355 Harvey P. Dale, <a href="/A174355/b174355.txt">Table of n, a(n) for n = 1..1000</a>
%e A174355 531331 = prime(43928), 133153 = prime(12427), 53 is smallest term of sequence.
%t A174355 Select[Range[2100],AllTrue[{#*10^4+1331,1331*10^IntegerLength[#]+#},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Aug 21 2015 *)
%o A174355 (PARI) isok(n) = isprime(n*10^4 + 1331) && isprime(1331*10^(length(Str(n))) + n); \\ _Michel Marcus_, Aug 27 2013
%Y A174355 Cf. A168327, A168417, A173836, A174213, A174260.
%K A174355 base,nonn
%O A174355 1,1
%A A174355 Eva-Maria Zschorn (e-m.zschorn(AT)zaschendorf.km3.de), Mar 17 2010