A163430 Primes of the form floor(p^3/8), where p is any prime number.

3, 857, 71473, 716917, 870983, 1706489, 6486889, 10007873, 33230963, 46461869, 50447927, 86058173, 177030983, 190605743, 200715401, 236602381, 263991523, 364759573, 388218197, 581137663, 742446841, 1081625359, 1129738223

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jul 27 2009

Keywords

• nonn

Examples

			From p=3, 3^3/8=3.375 contributes a(1)=3. p=19, 19^3/8 = 857.275 contributes a(2) = 857.
		

Links

• J. Mulder, Table of n, a(n) for n = 1..10000

Programs

Mathematica

f[n_]:=IntegerPart[(p/2)^3]; lst={};Do[p=Prime[n];If[PrimeQ[f[p]],AppendTo[lst, f[p]]],{n,7!}];lst
Select[Floor[#^3/8]&/@Prime[Range[500]],PrimeQ] (* Harvey P. Dale, Apr 11 2012 *)

Formula

a(n) = floor( A163431(n)^3/8).

Extensions

Mathematica-specific notation removed, comments moved to examples - R. J. Mathar, Sep 17 2009