%I #16 Sep 08 2022 08:45:48
%S 101,5101,6101,8101,12101,15101,20101,21101,29101,42101,44101,50101,
%T 53101,54101,56101,60101,65101,72101,74101,77101,78101,81101,83101,
%U 89101,95101,98101,102101,107101,116101,117101,119101,125101,131101
%N Prime numbers ending in the prime number 101.
%H Vincenzo Librandi, <a href="/A167626/b167626.txt">Table of n, a(n) for n = 1..2000</a>
%F a(n) = 1000*A105106(n)+101. - _R. J. Mathar_, Nov 13 2009
%p select(isprime,[seq(1000*k+101,k=0..1000)]); # _Robert Israel_, Jul 07 2014
%t Select[Prime@Range[200000], Mod[#, 1000]==101 &] (* _Vincenzo Librandi_, Jul 07 2014 *)
%t Select[Table[1000n+101,{n,0,200}],PrimeQ] (* _Harvey P. Dale_, Mar 22 2020 *)
%o (Magma) [n: n in PrimesUpTo(160000) | n mod 1000 eq 101]; // _Vincenzo Librandi_, Jul 07 2014
%Y Cf. A105106.
%Y Cf. similar sequences listed in A244763.
%K base,nonn
%O 1,1
%A _Mark A. Thomas_, Nov 07 2009
|