|
%I #20 Mar 22 2017 10:35:20
%S 45678910111213,20212223242526272829,68697071727374757677,
%T 88899091929394959697,122123124125126127128129130131,
%U 140141142143144145146147148149,188189190191192193194195196197,200201202203204205206207208209,212213214215216217218219220221
%N Primes that are a concatenation of ten consecutive numbers.
%e 4_5_6_7_8_9_10_11_12_13 is a prime number.
%t Select[FromDigits[Flatten[IntegerDigits[#]]]&/@Partition[Range[300], 10, 1], PrimeQ] (* _Vincenzo Librandi_, Sep 15 2015 *)
%o (PARI) for(n=1, 1e3, if(isprime(k=eval(Str(n, n+1, n+2, n+3, n+4, n+5, n+6, n+7, n+8, n+9))), print1(k", ")))
%Y Cf. A052077, A084551.
%K nonn,base
%O 1,1
%A _Altug Alkan_, Sep 14 2015
|
