OFFSET
1,1
MATHEMATICA
a={}; Do[x=(5^n+1)/6; If[PrimeQ[x], AppendTo[a, x]], {n, 0, 12^2}]; a
Select[(5^Range[0, 200]+1)/6, PrimeQ] (* Harvey P. Dale, Jul 18 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 15 2008
STATUS
approved