|
|
A104963
|
|
Primes from merging of 7 successive digits in decimal expansion of cos(1).
|
|
1
|
|
|
3058681, 7174009, 6074429, 9766037, 4206179, 7922227, 7744717, 4517951, 9343571, 9245513, 3932543, 5943517, 3757361, 4327549, 1754491, 7511513, 2227301, 3135707, 2322367, 2236771, 7873067, 4067587, 5111563, 7145689
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[FromDigits /@ Partition[RealDigits[Cos[1], 10, 600][[1]], 7, 1], IntegerLength[#] == 7 && PrimeQ[#] &] (* Vincenzo Librandi, Apr 25 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Andrew G. West (WestA(AT)wlu.edu), Mar 30 2005
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|