A108856 - OEIS

%I #22 Jan 19 2025 17:20:34

%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 k such that 10*k - 131 is prime.

%e If k=15 then 10*k - 131 = 19 (prime).

%e If k=49 then 10*k - 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