|
|
A104962
|
|
Primes from merging of 6 successive digits in decimal expansion of cos(1).
|
|
1
|
|
|
586813, 813971, 373231, 206179, 670097, 553811, 110039, 645179, 183089, 265417, 116447, 474479, 949423, 233117, 924551, 245513, 543359, 637573, 549641, 177511, 751151, 122273, 631357, 236771, 771401, 746899, 689959, 366787, 674227, 156329
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[FromDigits/@Partition[RealDigits[Cos[1], 10, 1000][[1]], 6, 1], IntegerLength[#] == 6 && PrimeQ[ #]&] (* Harvey P. Dale, Jan 19 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Andrew G. West (WestA(AT)wlu.edu), Mar 30 2005
|
|
STATUS
|
approved
|
|
|
|