OFFSET
1,1
COMMENTS
Floor[13/3]+13=17, ...
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[Floor[p/3]+p], AppendTo[lst, p]], {n, 6!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 24 2009
STATUS
approved