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 A074267 #9 Mar 30 2012 18:50:25 %S A074267 5,11,17,29,53,83,127,131,173,179,181,257,293,347,349,367,373,379,541, %T A074267 547,853,857,859,863,967,971,977,983,991,1373,1381,1399,1693,1697, %U A074267 1699,1709,1721,1861,1867,1871,1873,1877,1879,1889,2203,2207,2213,2221,2237 %N A074267 Primes of form p^n + k, where p is prime, n>1 and 0<k<p. %C A074267 The representation is not unique: a(7)=127=5^3+2=11^2+5. %C A074267 A138363(A049084(a(n))) > 0. %H A074267 R. Zumkeller, <a href="/A074267/b074267.txt">Table of n, a(n) for n = 1..1000</a> %t A074267 lst = {}; Do[q = p^n + k; If[ PrimeQ@p && PrimeQ@q, AppendTo[lst, q]], {p, 2, 50}, {k, p - 1}, {n, 2, Log[p, 3000]}]; Take[ Union@ lst, 49] (* _Robert G. Wilson v_, Sep 22 2007 *) %K A074267 nonn,nice %O A074267 1,1 %A A074267 _Reinhard Zumkeller_, Sep 20 2002