1,2
19*1-2=17, 19*7-2=131, 19*15-2=283, ...
a={}; Do[x=19*n-2; If[PrimeQ[x], AppendTo[a, n]], {n, 10^2}]; a
Sequence in context: A204740 A065566 A154618 * A115783 A140109 A064397
Adjacent sequences: A138638 A138639 A138640 * A138642 A138643 A138644
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 15 2008