|
%I #14 Dec 14 2014 06:18:23
%S 577,431,421,593,359,593,359,677,677,467,709,947,467,463,631,809,401,
%T 283,241,173,739,997,449,353,3,337,293,937,373,733,337,773,673,739,
%U 709,491,853,233,331,151,661,211,199,79,479,937,857,2,29,547,29,43,421
%N Primes from merging of 3 successive digits in decimal expansion of Euler-Mascheroni constant.
%C Leading zeros are permitted, so some terms are less than 3 digits in length.
%H Vincenzo Librandi, <a href="/A198777/b198777.txt">Table of n, a(n) for n = 1..1000</a>
%t egp[len_]:=Module[{egterms=FromDigits/@Partition[RealDigits[EulerGamma, 10, 1000][[1]],len,1]},Select[egterms,PrimeQ[#]&]]; egp[3]
%Y 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.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_, Oct 29 2011
|
