

A104940


Primes from merging of 6 successive digits in decimal expansion of the EulerMascheroni Constant.


2



939923, 992359, 746749, 241739, 644923, 350033, 500333, 374293, 937337, 773767, 160087, 670853, 532331, 199501, 847937, 299213, 325421, 526733, 673313, 331399, 375413, 395491, 954911, 939973, 271351, 349291, 984301, 341777, 916633, 633401
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Each term must have 6 digits, i.e., leading zeros are not permitted.  Harvey P. Dale, Jun 07 2022


LINKS



MATHEMATICA

egp[len_] := Module[{egterms = FromDigits /@ Partition[RealDigits[EulerGamma, 10, 1000][[1]], len, 1]}, Select[egterms, IntegerLength[#] == len && PrimeQ[#] &]]; egp[6] (* Vincenzo Librandi, Apr 20 2013 *)


CROSSREFS



KEYWORD

nonn,base


AUTHOR

Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005


EXTENSIONS



STATUS

approved



