|
|
A198777
|
|
Primes from merging of 3 successive digits in decimal expansion of Euler-Mascheroni constant.
|
|
11
|
|
|
577, 431, 421, 593, 359, 593, 359, 677, 677, 467, 709, 947, 467, 463, 631, 809, 401, 283, 241, 173, 739, 997, 449, 353, 3, 337, 293, 937, 373, 733, 337, 773, 673, 739, 709, 491, 853, 233, 331, 151, 661, 211, 199, 79, 479, 937, 857, 2, 29, 547, 29, 43, 421
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Leading zeros are permitted, so some terms are less than 3 digits in length.
|
|
LINKS
|
|
|
MATHEMATICA
|
egp[len_]:=Module[{egterms=FromDigits/@Partition[RealDigits[EulerGamma, 10, 1000][[1]], len, 1]}, Select[egterms, PrimeQ[#]&]]; egp[3]
|
|
CROSSREFS
|
Cf. A103773, A103789, A103793,A103808,A103809,A103810, A103811, A103812, A104824, A104825, A104826, A104843, A104844, A104845, A104846, A104847, A104848, A104849, A104850, A104937, A198161, A198162, A198163, A198164, A198165, A198166, A198167, A198168, A198169, A198170, A198171, A198172, A198173, A198175, A104851, A198177, A198776, A198778, A198779, A198780, A198781, A198782, A198783, A198784.
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|