|
|
A104961
|
|
Primes from merging of 5 successive digits in decimal expansion of cos(1).
|
|
1
|
|
|
86813, 40093, 36607, 76603, 66037, 60373, 42061, 55381, 11003, 10039, 77447, 74471, 45179, 56087, 83089, 30893, 57173, 30089, 85847, 17971, 16447, 42331, 23311, 24551, 94351, 43517, 70289, 37573, 61543, 44917, 49177, 51151, 15131
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[FromDigits/@Partition[RealDigits[Cos[1], 10, 6500][[1]], 5, 1], PrimeQ[#]&&#>10000&] (* Vincenzo Librandi, Apr 24 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Andrew G. West (WestA(AT)wlu.edu), Mar 30 2005
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|