login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes from merging of 6 successive digits in decimal expansion of cos(1).
1

%I #11 Aug 11 2014 22:45:26

%S 586813,813971,373231,206179,670097,553811,110039,645179,183089,

%T 265417,116447,474479,949423,233117,924551,245513,543359,637573,

%U 549641,177511,751151,122273,631357,236771,771401,746899,689959,366787,674227,156329

%N Primes from merging of 6 successive digits in decimal expansion of cos(1).

%H Harvey P. Dale, <a href="/A104962/b104962.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,1000][[1]],6,1],IntegerLength[#] == 6 && PrimeQ[ #]&] (* _Harvey P. Dale_, Jan 19 2013 *)

%K nonn,base

%O 1,1

%A Andrew G. West (WestA(AT)wlu.edu), Mar 30 2005