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