|
%I #12 Sep 08 2022 08:45:48
%S 41,241,541,641,941,1741,2141,2341,2441,2741,3041,3541,4241,4441,5441,
%T 5641,5741,6841,7541,7741,7841,8641,8741,8941,9041,9241,9341,9941,
%U 10141,11941,12041,12241,12541,12641,12841,12941,13241,13441,13841,14341
%N Prime numbers ending in the prime number 41.
%H Vincenzo Librandi, <a href="/A167443/b167443.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5,1700]],Take[IntegerDigits[#],-2]=={4,1}&] (* _Harvey P. Dale_, Mar 30 2011 *)
%o (Magma) [n: n in PrimesUpTo(15000) | n mod 100 eq 41]; // _Vincenzo Librandi_, Jul 07 2014
%o (PARI) select(x->(x % 100)==41, primes(2000)) \\ _Michel Marcus_, Jul 07 2014
%Y Cf. similar sequences listed in A244763.
%K base,nonn
%O 1,1
%A _Mark A. Thomas_, Nov 03 2009
|
