%I #16 Apr 30 2013 03:18:58
%S 4567891,1112131,1213141,8394041,4757677,8798081,8991001,1111211,
%T 1112113,1211311,1711811,7118119,3113213,3413513,5146147,7148149,
%U 9170171,7417517,7517617,8919019,9119219,5196197,7198199,5206207
%N Primes from merging of 7 successive digits in decimal expansion of the Champernowne Constant.
%H Vincenzo Librandi, <a href="/A104950/b104950.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[300]], 7, 1], PrimeQ], IntegerLength[#] == 7&] (* _Vincenzo Librandi_, Apr 24 2013 *)
%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
|