%I #10 Nov 11 2014 10:57:56
%S 1516171819,3940414243,5758596061,6566676869,7778798081,8384858687,
%T 8990919293,129130131132133,153154155156157,197198199200201,
%U 213214215216217,239240241242243,269270271272273,387388389390391,399400401402403,443444445446447,459460461462463
%N Primes which are a concatenation of five consecutive numbers.
%H Harvey P. Dale, <a href="/A084551/b084551.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Table[FromDigits[Flatten[IntegerDigits[n+Range[-2,2]]]],{n,2,500}],PrimeQ] (* _Jayanta Basu_, May 24 2013 *)
%t Select[FromDigits[Flatten[IntegerDigits[#]]]&/@Partition[Range[600],5,1], PrimeQ] (* _Harvey P. Dale_, Nov 11 2014 *)
%Y Cf. A030458, A030471, A052087, A052088, A052089.
%K easy,nonn,base
%O 1,1
%A _Zak Seidov_, Jun 27 2003
|