|
%I #10 Apr 30 2020 18:16:11
%S 113127131137139149,569571577587593599,727733739743751757,
%T 733739743751757761,739743751757761769,102110311033103910491051,
%U 105110611063106910871091,110911171123112911511153,118111871193120112131217,138113991409142314271429
%N Concatenations of six consecutive primes forming a prime.
%H K. D. Bajpai, <a href="/A099727/b099727.txt">Table of n, a(n) for n = 1..1470</a>
%e The prime 113127131137139149 is a concatenation of the consecutive primes 113, 127, 131, 137, 139 and 149.
%p with(numtheory): with(StringTools):
%p KD := proc() local a ;
%p a:= parse(cat(ithprime(n), ithprime(n+1), ithprime(n+2), ithprime(n+3), ithprime(n+4), ithprime(n+5)));
%p if isprime(a) then RETURN (a);
%p fi;
%p end: seq(KD(), n=1..500); # _K. D. Bajpai_, Mar 24 2014
%t Select[FromDigits[Flatten[IntegerDigits/@#]]&/@Partition[Prime[Range[ 300]],6,1],PrimeQ] (* _Harvey P. Dale_, Apr 30 2020 *)
%Y Cf. A030461, A030469, A030473, A086040, A086041.
%K nonn,base
%O 1,1
%A _Ray G. Opao_, Nov 07 2004
| 