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,1

Links

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

Formula

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

Example

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

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 *)

Crossrefs

Sequence in context: A341574 A283017 A093189 * A203688 A253578 A167472

Adjacent sequences: A163427 A163428 A163429 * A163431 A163432 A163433

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jul 27 2009

Extensions

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

Status

approved