|
%I #9 Apr 26 2013 22:44:16
%S 3058681,7174009,6074429,9766037,4206179,7922227,7744717,4517951,
%T 9343571,9245513,3932543,5943517,3757361,4327549,1754491,7511513,
%U 2227301,3135707,2322367,2236771,7873067,4067587,5111563,7145689
%N Primes from merging of 7 successive digits in decimal expansion of cos(1).
%H Vincenzo Librandi, <a href="/A104963/b104963.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/chap14.html">15,000 digits of Cos(1)</a> as calculated by _Simon Plouffe_ at WorldWideSchool.org.
%t Select[FromDigits /@ Partition[RealDigits[Cos[1], 10, 600][[1]], 7, 1], IntegerLength[#] == 7 && PrimeQ[#] &] (* _Vincenzo Librandi_, Apr 25 2013 *)
%K nonn,base
%O 1,1
%A Andrew G. West (WestA(AT)wlu.edu), Mar 30 2005
%E Changed offset from 0 to 1 by _Vincenzo Librandi_, Apr 24 2013
|
