A104961 - OEIS

%I #11 Jul 01 2023 19:22:08

%S 86813,40093,36607,76603,66037,60373,42061,55381,11003,10039,77447,

%T 74471,45179,56087,83089,30893,57173,30089,85847,17971,16447,42331,

%U 23311,24551,94351,43517,70289,37573,61543,44917,49177,51151,15131

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

%H Vincenzo Librandi, <a href="/A104961/b104961.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, 6500][[1]], 5, 1], PrimeQ[#]&&#>10000&] (* _Vincenzo Librandi_, Apr 24 2013 *)

%K nonn,base

%O 1,1

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

%E Offset changed from 0 to 1 by _Vincenzo Librandi_, Apr 24 2013