OFFSET
1,1
MATHEMATICA
<< NumberTheory`NumberTheoryFunctions` a = {}; Do[AppendTo[a, PreviousPrime[Sqrt[(Prime[ x - 1])*(Prime[x + 1])]]], {x, 2, 300}]; Union[a]
KEYWORD
nonn
AUTHOR
Artur Jasinski, Oct 15 2007
STATUS
approved