cp's OEIS Frontend

A198784 Primes from merging of 10 successive digits in decimal expansion of Euler-Mascheroni constant (in the order of appearance).

%I A198784 #26 Dec 14 2014 06:21:13
%S A198784 7215664901,1566490153,3286060651,6060651209,9008240243,4310421593,
%T A198784 2159335939,9235988057,8486772677,8070824809,2836224173,3622417399,
%U A198784 3997644923,33374293,2582470949,6008735203,87352039,3151776611,5015079847,7400299213,3139925401,3754139549
%N A198784 Primes from merging of 10 successive digits in decimal expansion of Euler-Mascheroni constant (in the order of appearance).
%C A198784 Leading zeros are permitted, so some terms are less than 10 digits in length.
%C A198784 See A104944 for the variant where no leading zeros are allowed. - _M. F. Hasler_, Nov 01 2014
%H A198784 Vincenzo Librandi, <a href="/A198784/b198784.txt">Table of n, a(n) for n = 1..1000</a>
%t A198784 egp[len_]:=Module[{egterms=FromDigits/@Partition[RealDigits[EulerGamma, 10, 1000][[1]],len,1]},Select[egterms,PrimeQ[#]&]]; egp[10]
%o A198784 (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
%Y A198784 For the Euler-Mascheroni constant, see also A198776, A198777, A198778, A198779, A198780, A198781, A198782, A198783, A198784 (this sequence) and A104944 (a variant).
%Y A198784 For sqrt(2), see A198162, A198163, A198164, A198165, A198166, A198167, A198168, A198169, A198161.
%Y A198784 For e, see A104843, A104844, A104845, A104846, A104847, A104848, A104849, A104850, A104851.
%Y A198784 For Pi, see A198175, A198170, A104824, A104825, A104826, A198171, A198172, A198173, A198174.
%Y A198784 For the Golden Ratio, see A198177, A103773, A103789, A103793, A103808, A103809, A103810, A103811, A103812.
%K A198784 nonn,base
%O A198784 1,1
%A A198784 _Harvey P. Dale_, Oct 29 2011