|
|
A198776
|
|
Primes from merging of 2 successive digits in decimal expansion of Euler-Mascheroni constant.
|
|
18
|
|
|
53, 2, 43, 31, 59, 59, 23, 59, 5, 67, 23, 67, 67, 67, 47, 29, 17, 67, 31, 47, 7, 5, 83, 41, 17, 73, 97, 23, 53, 53, 3, 37, 29, 37, 73, 37, 73, 37, 67, 73, 79, 59, 47, 73, 3, 67, 53, 23, 31, 17, 61, 11, 11, 19, 7, 79, 47, 79, 37, 5, 2, 29, 13, 47, 61, 2, 29
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Leading zeros are permitted, so some terms may be less than 2 digits in length.
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
|
|
MATHEMATICA
|
egp[len_]:=Module[{egterms=FromDigits/@Partition[RealDigits[EulerGamma, 10, 1000][[1]], len, 1]}, Select[egterms, PrimeQ[#]&]]; egp[2]
Select[FromDigits/@Partition[RealDigits[EulerGamma, 10, 500][[1]], 2, 1], PrimeQ] (* Harvey P. Dale, Mar 19 2020 *)
|
|
CROSSREFS
|
Cf. A103773, A103789, A103793, A103808, A103809, A103810, A103811,
A103812, A104824, A104825, A104826, A104843, A104844, A104845,
A104846, A104847, A104848, A104849, A104850, A104936, A198161, A198162,
A198163, A198164, A198165, A198166, A198167, A198168, A198169,
A198170, A198171, A198172, A198173, A198175, A104851, A198177,
A198777, A198778, A198779, A198780, A198781, A198782,
A198783, A198784.
Sequence in context: A038778 A116107 A114787 * A051320 A232126 A078681
Adjacent sequences: A198773 A198774 A198775 * A198777 A198778 A198779
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Harvey P. Dale, Oct 29 2011
|
|
STATUS
|
approved
|
|
|
|