|
%I #17 Apr 30 2013 03:17:42
%S 4567,1213,2131,8293,2333,3343,3637,6373,4243,5051,5657,6263,6869,
%T 7879,8081,9091,9293,2939,9697,1021,1031,1051,1061,1091,2113,1151,
%U 1511,1171,1181,1811,1201,1231,1291,1301,1321,3313,3413,1361,3613,1381,2143,1451
%N Primes from merging of 4 successive digits in decimal expansion of the Champernowne Constant.
%H Vincenzo Librandi, <a href="/A104947/b104947.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]], 4, 1], PrimeQ], IntegerLength[#] == 4&] (* _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
|
