|
%I #19 Sep 08 2022 08:45:33
%S 4,10,12,22,24,30,34,40,48,52,54,60,72,78,88,90,100,114,118,130,132,
%T 138,144,150,160,172,178,184,192,198,204,208,214,220,222,240,250,262,
%U 264,268,270,274,282,288,292,298,312,318,324,328,342,354,358,360,372
%N Positive integers k such that 17*k-7 is prime.
%H Daniel Starodubtsev, <a href="/A138628/b138628.txt">Table of n, a(n) for n = 1..10000</a>
%e 17*4-7=61, 17*10-7=163, 17*12-7=197, 17*22-7=367, ...
%t a={}; Do[x=17*n-7; If[PrimeQ[x], AppendTo[a,n]], {n,10^2}]; a
%t Select[Range[400], PrimeQ[17#-7]&] (* _Harvey P. Dale_, Jan 06 2011 *)
%o (Magma) [k:k in [1..372]|IsPrime(17*k-7)]; // _Marius A. Burtea_, Feb 12 2020
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 14 2008
%E Extended by _Harvey P. Dale_, Jan 06 2011
|
