login
A163430
Primes of the form floor(p^3/8), where p is any prime number.
4
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
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
KEYWORD
nonn
AUTHOR
EXTENSIONS
Mathematica-specific notation removed, comments moved to examples - R. J. Mathar, Sep 17 2009
STATUS
approved