|
%I #18 Jan 20 2018 12:16:26
%S 23456789,56789101,11213141,14151617,41516171,20212223,82930313,
%T 13233343,34353637,58596061,64656667,66768697,76869707,17273747,
%U 47576777,88990919,10911011,11112113,21131141,31141151,21231241
%N Primes from merging of 8 successive digits in decimal expansion of the Champernowne Constant.
%H Vincenzo Librandi, <a href="/A104951/b104951.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[500]], 8, 1], PrimeQ], IntegerLength[#] == 8&] (* _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
|
