%I #5 Aug 22 2017 17:29:29
%S 1,7,15,19,21,31,37,39,45,49,51,75,79,85,99,105,109,117,121,127,141,
%T 145,147,159,169,175,177,199,207,211,219,225,229,235,247,249,259,261,
%U 271,277,285,291,297,301,309,325,327,331,345,357,361,367,381,387,397
%N Nonnegative integers n such that 19*n2 is prime.
%e 19*12=17, 19*72=131, 19*152=283, ...
%t a={};Do[x=19*n2;If[PrimeQ[x],AppendTo[a,n]],{n,10^2}];a
%t Select[Range[400],PrimeQ[19#2]&] (* _Harvey P. Dale_, Aug 22 2017 *)
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, May 15 2008
%E More terms from _Harvey P. Dale_, Aug 22 2017
