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

139, 397, 971, 607, 373, 617, 179, 227, 811, 947, 179, 571, 173, 311, 337, 541, 173, 179, 797, 971, 479, 233, 331, 311, 179, 139, 433, 359, 757, 641, 449, 491, 751, 151, 131, 227, 631, 313, 823, 223, 367, 677, 401, 151, 593, 787, 227, 587, 617, 563, 571

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

The first 15,000 digits of Cos(1) as calculated by Simon Plouffe at WorldWideSchool.org.

Mathematica

Select[FromDigits/@Partition[RealDigits[Cos[1], 10, 500][[1]], 3, 1], PrimeQ[#]&&#>100&] (* Vincenzo Librandi, Apr 24 2013 *)

Crossrefs

Sequence in context: A142019 A142099 A142680 * A265502 A142563 A142213

Adjacent sequences: A104956 A104957 A104958 * A104960 A104961 A104962

Keyword

nonn,base

Author

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

Extensions

Offset changed from 0 to 1 by Vincenzo Librandi, Apr 24 2013

Status

approved