The OEIS is supported by the many generous donors to the OEIS Foundation.

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

1

`%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
`