|
%I #11 Sep 08 2022 08:46:08
%S 47,347,547,647,947,1447,1747,1847,2347,2447,2647,3347,3547,3847,3947,
%T 4447,4547,5147,5347,5647,6047,6247,6547,6947,7247,7547,8147,8447,
%U 8647,8747,9547,10247,10847,11047,11447,12347,12547,12647,13147,14347,14447,14747
%N Prime numbers ending in the prime number 47.
%C Also primes of the form 100*n+47. Subsequence A141882, A141944.
%H Vincenzo Librandi, <a href="/A244770/b244770.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[5, 6000]], Take[IntegerDigits[#], -2]=={4, 7} &]
%o (Magma) [n: n in PrimesUpTo(16000) | n mod 100 eq 47];
%o (PARI) select(x->(x % 100)==47, primes(2000)) \\ _Michel Marcus_, Jul 06 2014
%Y Cf. A141882, A141944.
%Y Cf. similar sequences listed in A244763.
%K nonn,base,easy
%O 1,1
%A _Vincenzo Librandi_, Jul 06 2014
|
