%I #14 Dec 09 2014 03:31:28
%S 3058681397,9366074429,4297660373,9518560871,3089343571,3185847179,
%T 3254335943,4964175449,5449177511,7823223677,3677140151,7587498161,
%U 2968890571,4423024093,2302409359,2434336217,5694535157,8251380499,7306380317,4450349861,6335655779
%N Primes from merging of 10 successive digits in the decimal expansion of cos(1).
%C Leading zeros are not permitted, so each prime is 10 digits in length. The terms are listed in the order in which they occur.
%H Bruno Berselli, <a href="/A225140/b225140.txt">Table of n, a(n) for n = 1..1000</a>
%H Simon Plouffe, <a href="http://www.worldwideschool.org/library/books/sci/math/MiscellaneousMathematicalConstants/chap14.html">Champernowne constant to 15000 digits</a>
%t With[{len = 10}, FromDigits /@ Select[Partition[RealDigits[Cos[1], 10, 600][[1]], len, 1], PrimeQ[FromDigits[#]] && IntegerLength[FromDigits[#]] == len &]]
%Y Cf. A049470, A104958 - A104965.
%Y Cf. A104966.
%K nonn,base
%O 1,1
%A _Bruno Berselli_, Apr 30 2013
|