1,1

19*2-1=37, 19*6-1=113, 19*8-1=151, ...

a={}; Do[x=19*n-1; If[PrimeQ[x], AppendTo[a, n]], {n, 10^2}]; a

Sequence in context: A140115 A162860 A093006 this_sequence A082473 A113462 A065392

Adjacent sequences: A138636 A138637 A138638 this_sequence A138640 A138641 A138642

nonn

Vladimir Orlovsky (4vladimir(AT)gmail.com), May 15 2008