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 A104493 #8 Mar 29 2015 13:15:04
%S A104493 2,5,6,8,10,19,20,23,26,28,31,48,49,50,51,52,55,56,57,59,61,65,66,99,
%T A104493 100,105,110,112,114,117,121,125,127,170,171,173,178,184,185,186,190,
%U A104493 192,194,196,200,201,206,208,214,270,271,272,274,277,278,279,280,282
%N A104493 Numbers n for which the cube excess of the n-th prime is prime.
%F A104493 n such that A055400(A000040(n)) is an element of A000040. n such that A104492(n) is prime.
%e A104493 99 is an element of this sequence because the 99th prime is 523, 523 - 8^3 = 523-512 = 11 and 11 is prime. 100 is in this sequence because the 100th prime is 541 and 541-8^3 = 29, which is prime.
%t A104493 f[n_] := Block[{k = 1, p = Prime[n]}, While[k^3 < p, k++ ]; p - (k - 1)^3]; Select[ Range[ 284], PrimeQ[ f[ # ]] &] (* _Robert G. Wilson v_, Mar 19 2005 *)
%Y A104493 Cf. A000040, A053186, A055400, A056892, A102821, A104492.
%K A104493 easy,nonn
%O A104493 1,1
%A A104493 _Jonathan Vos Post_, Mar 19 2005
%E A104493 More terms from _Robert G. Wilson v_, Mar 19 2005