|
%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
|
