%I #20 Sep 15 2017 11:57:18
%S 23,67,89,11,11,13,31,41,61,17,71,19,23,29,31,13,23,43,53,37,73,83,41,
%T 43,47,53,59,61,67,97,71,17,73,37,47,67,79,83,89,19,29,59,97,79,89,11,
%U 31,41,61,71,11,11,11,11,11,11,13,31,11,41,11,11,61,11,17,71,11,11,19
%N Primes from merging of 2 successive digits in decimal expansion of the Champernowne Constant.
%C Leading zeroes not permitted, i.e., the terms must be two-digit primes. - _Harvey P. Dale_, Sep 15 2017
%H Vincenzo Librandi, <a href="/A104945/b104945.txt">Table of n, a(n) for n = 1..1000</a>
%H The first <a href="http://www.worldwideschool.org/library/books/sci/math/MiscellaneousMathematicalConstants/chap12.html">2,800 digits of the Champernowne Constant</a> as calculated at WorldWideSchool.org.
%t Select[Select[FromDigits/@Partition[Flatten[IntegerDigits/@Range[200]], 2, 1], PrimeQ], IntegerLength[#] == 2&] (* _Vincenzo Librandi_, Apr 24 2013 *)
%t Select[FromDigits/@Partition[RealDigits[ChampernowneNumber[],10,400][[1]],2,1],IntegerLength[#]==2&&PrimeQ[#]&] (* _Harvey P. Dale_, Sep 15 2017 *)
%Y Cf. A033307.
%K nonn,base
%O 1,1
%A Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005
%E Changed offset from 0 to 1 by _Vincenzo Librandi_, Apr 24 2013