|
|
A105012
|
|
Primes from merging of 7 successive digits in decimal expansion of exp(Pi).
|
|
1
|
|
|
9005729, 7290863, 5046409, 5243423, 3516971, 6759527, 7965863, 6924223, 1013741, 3868477, 8477243, 1128763, 8763773, 4789193, 3655727, 9168487, 2645479, 5479013, 7924229, 7995653, 5381423, 8142353, 9580729, 1691939
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[FromDigits /@ Partition[RealDigits[Exp[Pi], 10, 500][[1]], 7, 1], # > 999999 && PrimeQ[#] &] (* Vincenzo Librandi, Apr 27 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Andrew G. West (WestA(AT)wlu.edu), Mar 31 2005
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|