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