login
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
OFFSET
1,1
COMMENTS
Leading zeros are permitted, so some terms are less than 10 digits in length.
See A104944 for the variant where no leading zeros are allowed. - M. F. Hasler, Nov 01 2014
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
For the Euler-Mascheroni constant, see also A198776, A198777, A198778, A198779, A198780, A198781, A198782, A198783, A198784 (this sequence) and A104944 (a variant).
For the Golden Ratio, see A198177, A103773, A103789, A103793, A103808, A103809, A103810, A103811, A103812.
Sequence in context: A082255 A216867 A095926 * A104944 A257899 A199632
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Oct 29 2011
STATUS
approved