login
Positive integers k such that 17*k-7 is prime.
1

%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