

A198776


Primes from merging of 2 successive digits in decimal expansion of EulerMascheroni 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



