%I #27 Aug 13 2023 15:57:00
%S 0,2,5,6,8,11,12,14,15,18,20,27,29,30,33,36,39,41,44,47,50,51,53,56,
%T 57,62,63,68,69,75,78,81,84,86,89,90,92,93,96,102,104,105,107,110,116,
%U 117,119,123,125,132,134,135,138,140,144,147,149,159,161,167,168,170,173
%N Numbers n such that 10*n + 131 is prime.
%H Matthew House, <a href="/A108857/b108857.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A024912(n+6) - 13. - _Robert Israel_, Aug 09 2015
%e If n=0 then 10*n + 131 = 131 (prime).
%e If n=33 then 10*n + 131 = 461 (prime).
%p select(n -> isprime(10*n+131), [$0..1000]); # _Robert Israel_, Aug 09 2015
%t Select[Range[0,200],PrimeQ[10#+131]&] (* _Harvey P. Dale_, Aug 13 2023 *)
%o (Magma) [n: n in [0..200] | IsPrime(10*n+131)]; // _Vincenzo Librandi_, Nov 13 2010
%o (PARI) is(n)=isprime(10*n+131) \\ _Charles R Greathouse IV_, Jun 12 2017
%Y Cf. A024912.
%K nonn,easy
%O 1,2
%A _Parthasarathy Nambi_, Jul 11 2005