|
%I #21 Oct 23 2023 01:37:14
%S 10,11,12,14,15,17,18,20,21,26,27,29,32,33,36,38,39,41,45,47,48,53,54,
%T 56,60,62,66,69,71,74,75,77,78,83,84,87,92,95,96,98,105,108,111,113,
%U 116,119,120,122,125,126,129,131,132,138,140
%N Numbers k such that 10*k - 97 is prime.
%H Michael De Vlieger, <a href="/A108584/b108584.txt">Table of n, a(n) for n = 1..10000</a>
%e If k=10 then 10*k - 97 = 3 (prime).
%e If k=36 then 10*k - 97 = 263 (prime).
%t Select[Range[10,200],PrimeQ[10#-97]&] (* _Harvey P. Dale_, Jan 10 2015 *)
%o (Magma) [n: n in [10..200]| IsPrime(10*n - 97)]; // _Vincenzo Librandi_, Feb 03 2011
%o (PARI) is(n)=isprime(10*n-97) \\ _Charles R Greathouse IV_, Jun 13 2017
%o (SageMath) [n for n in (10..400) if is_prime(10*n-97)] # _G. C. Greubel_, Oct 22 2023
%Y Cf. A108588.
%K nonn,easy
%O 1,1
%A _Parthasarathy Nambi_, Jul 05 2005
|
