|
|
A104943
|
|
Primes from merging of 9 successive digits in decimal expansion of the Euler-Mascheroni Constant.
|
|
2
|
|
|
215664901, 593359399, 235988057, 362241739, 739976449, 337429373, 733773767, 670853233, 146694029, 151905877, 267331399, 413954911, 984234877, 384310939, 310939973, 939973613, 306088933, 759271351, 549570661, 789358679, 725203621
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
egp[len_]:=Module[{egterms=FromDigits/@Partition[RealDigits[EulerGamma, 10, 1000][[1]], len, 1]}, Select[egterms, IntegerLength[#]==len&&PrimeQ[#]&]]; egp[9] (* Harvey P. Dale, Oct 29 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|