%I #8 Jan 16 2023 18:30:10

%S 163,1163,3163,6163,10163,12163,13163,19163,21163,25163,28163,39163,

%T 40163,48163,52163,54163,55163,57163,69163,70163,76163,78163,81163,

%U 82163,84163,90163,91163,106163,112163,115163,117163,118163,120163

%N Prime numbers ending in the prime number 163.

%H Vincenzo Librandi, <a href="/A167627/b167627.txt">Table of n, a(n) for n = 1..2000</a>

%t Select[Prime@Range[ 200000], Mod[#, 1000]==163 &] (* _Vincenzo Librandi_, Jul 07 2014 *)

%t Select[Table[1000n+163,{n,0,150}],PrimeQ] (* This program is several hundred times more efficient that the program above. *) (* _Harvey P. Dale_, Jan 16 2023 *)

%o (Magma) [n: n in PrimesUpTo(160000) | n mod 1000 eq 163]; // _Vincenzo Librandi_, Jul 07 2014

%Y Cf. similar sequences listed in A244763.

%K base,nonn

%O 1,1

%A _Mark A. Thomas_, Nov 07 2009