login
A225140
Primes from merging of 10 successive digits in the decimal expansion of cos(1).
2
3058681397, 9366074429, 4297660373, 9518560871, 3089343571, 3185847179, 3254335943, 4964175449, 5449177511, 7823223677, 3677140151, 7587498161, 2968890571, 4423024093, 2302409359, 2434336217, 5694535157, 8251380499, 7306380317, 4450349861, 6335655779
OFFSET
1,1
COMMENTS
Leading zeros are not permitted, so each prime is 10 digits in length. The terms are listed in the order in which they occur.
MATHEMATICA
With[{len = 10}, FromDigits /@ Select[Partition[RealDigits[Cos[1], 10, 600][[1]], len, 1], PrimeQ[FromDigits[#]] && IntegerLength[FromDigits[#]] == len &]]
CROSSREFS
Cf. A104966.
Sequence in context: A357461 A336966 A333127 * A203886 A257914 A257893
KEYWORD
nonn,base
AUTHOR
Bruno Berselli, Apr 30 2013
STATUS
approved