%I #8 Feb 12 2020 04:40:33
%S 4,8,14,16,20,26,28,34,44,46,58,70,74,76,86,88,98,104,110,118,124,134,
%T 140,146,154,158,160,184,188,190,196,200,208,218,226,236,244,250,266,
%U 268,274,280,296,308,310,320,334,338,344,356,368,380,386,394,400
%N Nonnegative integers k such that 17*k-9 is prime.
%H Daniel Starodubtsev, <a href="/A138634/b138634.txt">Table of n, a(n) for n = 1..10000</a>
%e 17*4-9=59, 17*8-9=127, 17*14-9=229, 17*16-9=263, 17*20-9=331, 17*26-9=433, 17*28-9=467, ...
%t a={};Do[x=17*n-9;If[PrimeQ[x],AppendTo[a,n]],{n,10^2}];a
%t Select[Range[500],PrimeQ[17#-9]&] (* _Harvey P. Dale_, Jul 26 2018 *)
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 14 2008
%E More terms from _Harvey P. Dale_, Jul 26 2018
|