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 A163430 #8 Nov 21 2013 12:49:40
%S A163430 3,857,71473,716917,870983,1706489,6486889,10007873,33230963,46461869,
%T A163430 50447927,86058173,177030983,190605743,200715401,236602381,263991523,
%U A163430 364759573,388218197,581137663,742446841,1081625359,1129738223
%N A163430 Primes of the form floor(p^3/8), where p is any prime number.
%H A163430 J. Mulder, <a href="/A163430/b163430.txt">Table of n, a(n) for n = 1..10000</a>
%F A163430 a(n) = floor( A163431(n)^3/8).
%e A163430 From p=3, 3^3/8=3.375 contributes a(1)=3. p=19, 19^3/8 = 857.275 contributes a(2) = 857.
%t A163430 f[n_]:=IntegerPart[(p/2)^3]; lst={};Do[p=Prime[n];If[PrimeQ[f[p]],AppendTo[lst, f[p]]],{n,7!}];lst
%t A163430 Select[Floor[#^3/8]&/@Prime[Range[500]],PrimeQ] (* _Harvey P. Dale_, Apr 11 2012 *)
%K A163430 nonn
%O A163430 1,1
%A A163430 _Vladimir Joseph Stephan Orlovsky_, Jul 27 2009
%E A163430 Mathematica-specific notation removed, comments moved to examples - _R. J. Mathar_, Sep 17 2009