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 A229203 #12 Sep 28 2013 03:46:54
%S A229203 5,971,54709,73907,84991,124771,287179,404851,511591,728537,4095059,
%T A229203 5638691,6433747,6857849,10646627,11238001,11850913,12811423,13479779,
%U A229203 13822489,14170957,16775597,17574343,19681267,20121901,21950189,26461619,39999391,49025423,49833529
%N A229203 Primes of the form k^3 - prime(k).
%H A229203 K. D. Bajpai, <a href="/A229203/b229203.txt">Table of n, a(n) for n = 1..5500</a>
%e A229203 a(2)=971: 10^3-prime(10)= 1000-29= 971 which is prime.
%p A229203 KD:= proc() local a; a:= k^3-ithprime(k); if isprime(a) then RETURN(a): fi; end: seq(KD(),k=1..1000);
%t A229203 Select[Table[k^3-Prime[k],{k,1000}],PrimeQ]
%o A229203 (PARI) for(k=1, 10^3, if(ispseudoprime(KD=eval((k^3-prime(k)))), print1(KD", ")));
%Y A229203 Cf. A188831, A184935.
%K A229203 nonn
%O A229203 1,1
%A A229203 _K. D. Bajpai_, Sep 15 2013