|
|
A104936
|
|
Primes from merging of 2 successive digits in decimal expansion of the Euler-Mascheroni Constant.
|
|
2
|
|
|
53, 43, 31, 59, 59, 23, 59, 67, 23, 67, 67, 67, 47, 29, 17, 67, 31, 47, 83, 41, 17, 73, 97, 23, 53, 53, 37, 29, 37, 73, 37, 73, 37, 67, 73, 79, 59, 47, 73, 67, 53, 23, 31, 17, 61, 11, 11, 19, 79, 47, 79, 37, 29, 13, 47, 61, 29, 43, 19, 53, 67, 73, 31, 13, 29, 67, 13, 37, 41
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Leading zeros are not permitted, so each term is 2 digits in length. - Harvey P. Dale, Oct 30 2011
|
|
LINKS
|
|
|
MATHEMATICA
|
egp[len_]:=Module[{egterms=FromDigits/@Partition[RealDigits[EulerGamma, 10, 1000][[1]], len, 1]}, Select[egterms, IntegerLength[#]==len&&PrimeQ[#]&]]; egp[2] (* Harvey P. Dale, Oct 30 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|