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 A179913 #6 Feb 22 2013 21:38:32
%S A179913 1237,1319,1367,1523,1571,1723,1753,1979,1997,2131,2179,2239,2273,
%T A179913 2293,2297,2357,2377,2383,2389,2417,2437,2473,2531,2579,2593,2617,
%U A179913 2711,2731,2753,2797,3119,3167,3257,3271,3313,3371,3547,3571,3593,3617,3671,3677
%N A179913 Primes with five embedded primes.
%C A179913 A079066(a(n)) = 5.
%t A179913 f[n_] := Block[ {id = IntegerDigits@n}, len = Length@ id - 1; Count[ PrimeQ@ Union[ FromDigits@# & /@ Flatten[ Table[ Partition[ id, k, 1], {k, len}], 1]], True] + 1]; Select[ Prime@ Range@ 510, f@# == 6 &]
%o A179913 (Haskell)
%o A179913 import Data.List (elemIndices)
%o A179913 a179913 n = a179913_list !! (n-1)
%o A179913 a179913_list = map (a000040 . (+ 1)) $ elemIndices 5 a079066_list
%o A179913 -- _Reinhard Zumkeller_, Jul 19 2011
%Y A179913 Cf. A039996, A079397, A033274, A034844, A092621, A179909 - A179919, A033274.
%K A179913 base,nonn
%O A179913 1,1
%A A179913 _Robert G. Wilson v_, Aug 01 2010