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 A083240 #9 Oct 15 2013 22:31:58
%S A083240 37,47,163,167,647,881,1151,1627,3271,5179,5659,11597,13799,18503,
%T A083240 31259,43331,44201,76441,163883,277231,391067,402487,630493,643703,
%U A083240 809407,985679,1170311,1326989,1365799,2113973,2260631,2273101,2392939,2662133,2750431
%N A083240 Primes prime(j) such that prime(j)-j is a true power of prime.
%H A083240 Donovan Johnson, <a href="/A083240/b083240.txt">Table of n, a(n) for n = 1..1000</a>
%F A083240 A001221(a(n)-A000720(a(n))) = 1 and a(n)-A000720(a(n)) is in A025475.
%e A083240 11597 is the 1396th prime and 11597-1396 = 10201 = 101^2.
%t A083240 Do[s=Prime[n]-n; If[Equal[Length[FactorInteger[s]], 1]&&!PrimeQ[s], Print[Prime[n]]], {n, 1, 100000}]
%Y A083240 Cf. A025475, A109315.
%K A083240 nonn
%O A083240 1,1
%A A083240 _Labos Elemer_, Apr 24 2003