1,2
14*1-1=13, 14*3-1=41, 14*6-1=83, ...
a={}; Do[x=14*n-1; If[PrimeQ[x], AppendTo[a, n]], {n, 10^2}]; a
Sequence in context: A173059 A189387 A091087 * A080147 A192593 A084463
Adjacent sequences: A138619 A138620 A138621 * A138623 A138624 A138625
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 14 2008