%I #21 Oct 21 2023 19:37:21

%S 0,1,6,7,9,12,13,16,18,19,21,25,27,28,33,34,36,40,42,46,49,51,54,55,

%T 57,58,63,64,67,72,75,76,78,85,88,91,93,96,99,100,102,105,106,109,111,

%U 112,118,120,127,132,133,135,138,139,142,144,145,148,151,156,159,162,163

%N Numbers k such that 10*k + 103 is prime.

%H G. C. Greubel, <a href="/A108595/b108595.txt">Table of n, a(n) for n = 1..10000</a>

%e If n=33 then 10*n + 103 = 433 (prime).

%t Select[Range[0,300], PrimeQ[10*# +103] &] (* _G. C. Greubel_, Oct 21 2023 *)

%o (Magma) [n: n in [0..300] |IsPrime(10*n + 103)]

%o - _Vincenzo Librandi_, Nov 13 2010

%o (PARI) is(n)=isprime(10*n+103) \\ _Charles R Greathouse IV_, Jun 13 2017

%o (SageMath) [n for n in (0..300) if is_prime(10*n+103)] # _G. C. Greubel_, Oct 21 2023

%Y Cf. A030431, A045414.

%K nonn,easy

%O 1,3

%A _Parthasarathy Nambi_, Jul 05 2005