OFFSET
1,2
MATHEMATICA
a={}; Do[m=n^5; If[PrimeQ[m-5]&&PrimeQ[m+5], AppendTo[a, n]], {n, 0, 9!}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 19 2009
STATUS
approved