%I #16 Sep 08 2022 08:45:19
%S 15,16,19,21,22,24,27,28,31,33,36,37,40,48,49,51,52,54,55,57,58,61,63,
%T 64,70,73,75,79,84,85,87,90,94,96,97,99,105,106,114,115,117,118,120,
%U 124,126,136,138,139,141,142,145,153,154,156,157,159,162,163,168,169,171
%N Numbers n such that 10*n - 131 is prime.
%e If n=15 then 10*n - 131 = 19 (prime).
%e If n=49 then 10*n - 131 = 359 (prime).
%t Select[Range[14,200],PrimeQ[10#-131]&] (* _Harvey P. Dale_, Aug 08 2021 *)
%o (Magma) [n: n in [14..200] | IsPrime(10*n-131)]; - _Vincenzo Librandi_, Nov 13 2010
%o (PARI) is(n)=isprime(10*n-131) \\ _Charles R Greathouse IV_, Jun 13 2017
%K nonn,easy
%O 1,1
%A _Parthasarathy Nambi_, Jul 11 2005
|