|
|
A104964
|
|
Primes from merging of 8 successive digits in decimal expansion of cos(1).
|
|
1
|
|
|
86813971, 97174009, 31042061, 47744717, 83089343, 78606337, 26541731, 47179711, 32543359, 35943517, 59435177, 89259637, 57361543, 44917751, 63135707, 35707823, 23223677, 36771401, 67873067, 62024507, 84272021
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[FromDigits/@Partition[RealDigits[Cos[1], 10, 600][[1]], 8, 1], IntegerLength[#] == 8&&PrimeQ[#]&] (* Vincenzo Librandi Apr 25 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Andrew G. West (WestA(AT)wlu.edu), Mar 30 2005
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|