A167626 Prime numbers ending in the prime number 101.
101, 5101, 6101, 8101, 12101, 15101, 20101, 21101, 29101, 42101, 44101, 50101, 53101, 54101, 56101, 60101, 65101, 72101, 74101, 77101, 78101, 81101, 83101, 89101, 95101, 98101, 102101, 107101, 116101, 117101, 119101, 125101, 131101
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..2000
Programs
-
Magma
[n: n in PrimesUpTo(160000) | n mod 1000 eq 101]; // Vincenzo Librandi, Jul 07 2014
-
Maple
select(isprime,[seq(1000*k+101,k=0..1000)]); # Robert Israel, Jul 07 2014
-
Mathematica
Select[Prime@Range[200000], Mod[#, 1000]==101 &] (* Vincenzo Librandi, Jul 07 2014 *) Select[Table[1000n+101,{n,0,200}],PrimeQ] (* Harvey P. Dale, Mar 22 2020 *)
Formula
a(n) = 1000*A105106(n)+101. - R. J. Mathar, Nov 13 2009