|
%I #10 Jan 24 2020 10:55:16
%S 577,5711,5717,5737,5741,5743,5779,5783,57107,57131,57139,57149,57163,
%T 57173,57179,57191,57193,57223,57241,57251,57269,57271,57283,57331,
%U 57347,57349,57367,57373,57383,57389,57397,57457,57467,57487,57503
%N Primes that are a concatenation of 5, 7 and a prime.
%H Daniel Starodubtsev, <a href="/A101249/b101249.txt">Table of n, a(n) for n = 1..10000</a>
%H Peter Alfeld, <a href="http://www.math.utah.edu/~alfeld/math/p10000.html">The 10,000 smallest prime numbers</a>.
%e 5711 is a prime concatenated from the primes 5,7 and 11.
%t Select[ Table[ FromDigits[ Flatten[ IntegerDigits /@ {5, 7, Prime[n]}]], {n, 100}], PrimeQ[ # ] &] (* _Robert G. Wilson v_, Dec 20 2004 *)
%Y Cf. A100607, A101218, A101219, A101250, A101251, A101252.
%K nonn,base,easy
%O 1,1
%A _Parthasarathy Nambi_, Dec 16 2004
%E Extended by _Ray Chandler_ and _Robert G. Wilson v_, Dec 22 2004
|
