|
|
A104965
|
|
Primes from merging of 9 successive digits in decimal expansion of cos(1).
|
|
2
|
|
|
305868139, 971740093, 297660373, 110039477, 717645179, 518560871, 343571731, 173116003, 978606337, 633760021, 122654173, 584717971, 513932543, 433594351, 154327549, 917751151, 513122273, 100631357, 707823223, 151746899, 174689959
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[FromDigits/@Partition[RealDigits[Cos[1], 10, 600][[1]], 9, 1], IntegerLength[#] == 9&&PrimeQ[#]&] (* Vincenzo Librandi, Apr 25 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Andrew G. West (WestA(AT)wlu.edu), Mar 30 2005
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|