|
|
A198784
|
|
Primes from merging of 10 successive digits in decimal expansion of Euler-Mascheroni constant (in the order of appearance).
|
|
17
|
|
|
7215664901, 1566490153, 3286060651, 6060651209, 9008240243, 4310421593, 2159335939, 9235988057, 8486772677, 8070824809, 2836224173, 3622417399, 3997644923, 33374293, 2582470949, 6008735203, 87352039, 3151776611, 5015079847, 7400299213, 3139925401, 3754139549
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Leading zeros are permitted, so some terms are less than 10 digits in length.
|
|
LINKS
|
|
|
MATHEMATICA
|
egp[len_]:=Module[{egterms=FromDigits/@Partition[RealDigits[EulerGamma, 10, 1000][[1]], len, 1]}, Select[egterms, PrimeQ[#]&]]; egp[10]
|
|
PROG
|
(PARI) list_A198784(x=Euler, m=10)=m=10^m; for(k=1, default(realprecision), isprime(p=x\.1^k%m)&&print1(p", ")) \\ The optional arguments can be used to produce other sequences of this series (cf. Crossrefs). Use e.g. \p999 to set precision to 999 digits. - M. F. Hasler, Nov 01 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|