1,1
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] (* From Harvey P. Dale, Jul 18 2011 *)
Sequence in context: A028484 A057699 A033525 * A045050 A004968 A128809
Adjacent sequences: A138644 A138645 A138646 * A138648 A138649 A138650
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 15 2008