OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
FORMULA
A163430(n) = floor( a(n)^3/8 ).
EXAMPLE
a(1)=3 generates 3^3/8=3.375 where 3 is prime.
a(2)=19 generates 19^3/8=857.375 where 857 is prime.
MATHEMATICA
f[n_]:=IntegerPart[(p/2)^3]; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, p]], {n, 7!}]; lst
CROSSREFS
KEYWORD
nonn,easy
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