|
%I #21 May 02 2019 10:30:27
%S 728293031,282930313,343536373,940414243,727374757,778798081,
%T 586878889,596979899,798991001,899100101,810911011,911011111,
%U 720820921,736836937,937037137,939039139,850951051,951051151,756856957,973073173,876977077
%N Primes from merging of 9 successive digits in decimal expansion of the Champernowne Constant.
%H Vincenzo Librandi, <a href="/A104952/b104952.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[600]], 9, 1], PrimeQ], IntegerLength[#] == 9 &] (*_Vincenzo Librandi_, Apr 24 2013
%t Select[FromDigits/@Partition[RealDigits[ChampernowneNumber[],10,3000][[1]],9,1],IntegerLength[#]==9&&PrimeQ[#]&] (* _Harvey P. Dale_, May 02 2019 *)
%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
|
