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 A066776 #3 Feb 11 2014 19:05:24
%S A066776 1,2,3,4,69,113
%N A066776 Numbers n such that A043347(n) is a prime.
%C A066776 A043347(170) already has over a thousand digits.
%t A066776 a[n_] := (k = Prime[ Floor[n^(3/2)]] + 6; l = Sum[ Prime[i], {i, 1, n - 1} ]; b = ""; Do[ b = StringJoin[b, ToString[ Prime[i]]], {i, 1, k} ]; Return[ ToExpression[ StringTake[ StringDrop[b, l], Prime[n]]]]); Do[ If[ PrimeQ[ a[n]], Print[n]], {n, 1, 180} ]
%K A066776 base,hard,nonn
%O A066776 1,2
%A A066776 _Joseph L. Pe_, Jan 14 2002