%I #4 Nov 28 2016 09:06:57
%S 2,6,8,12,14,36,38,42,44,48,56,62,66,68,78,84,92,96,108,114,122,126,
%T 132,134,138,146,152,156,162,168,174,182,188,192,198,204,218,222,224,
%U 236,246,248,264,266,278,282,294,306,308,314,324,332,338,344,356,366
%N Nonnegative integers n such that 17*n-5 is prime.
%H Harvey P. Dale, <a href="/A138626/b138626.txt">Table of n, a(n) for n = 1..1000</a>
%e 17*2-5=29, 17*6-5=97, 17*8-5=131, 17*12-5=199,...
%t a={};Do[x=17*n-5;If[PrimeQ[x],AppendTo[a,n]],{n,10^2}];a
%t Select[Range[500],PrimeQ[17#-5]&] (* _Harvey P. Dale_, Nov 28 2016 *)
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 14 2008
%E More terms from _Harvey P. Dale_, Nov 28 2016
|