login
Numbers k such that 10k + 7 is prime.
11

%I #19 Feb 03 2024 00:49:57

%S 0,1,3,4,6,9,10,12,13,15,16,19,22,25,27,30,31,33,34,36,39,45,46,48,54,

%T 55,57,58,60,61,64,67,72,75,78,79,82,85,87,88,90,93,94,96,97,99,108,

%U 109,111,118,121,123,127,129,130,132,136,142,144,148,156,159,160,162,163

%N Numbers k such that 10k + 7 is prime.

%e 10*1 + 7 = 17 (prime);

%e 10*48 + 7 = 487 (prime);

%e 10*99 + 7 = 997 (prime).

%t Select[Range[0, 170], PrimeQ[10# + 7] &] (* _Ray Chandler_, Nov 07 2006 *)

%o (Magma) [n: n in [0..3000]| IsPrime(10*n+7)]; // _Vincenzo Librandi_, Apr 06 2011

%o (PARI) is(n)=isprime(10*n+7) \\ _Charles R Greathouse IV_, Feb 17 2017

%Y Cf. A030432, A049509.

%K nonn

%O 1,3

%A _Parthasarathy Nambi_, Feb 20 2005

%E Edited and extended by _Ray Chandler_, Nov 07 2006