|
%I #20 Mar 19 2020 18:32:05
%S 53,2,43,31,59,59,23,59,5,67,23,67,67,67,47,29,17,67,31,47,7,5,83,41,
%T 17,73,97,23,53,53,3,37,29,37,73,37,73,37,67,73,79,59,47,73,3,67,53,
%U 23,31,17,61,11,11,19,7,79,47,79,37,5,2,29,13,47,61,2,29
%N Primes from merging of 2 successive digits in decimal expansion of Euler-Mascheroni constant.
%C Leading zeros are permitted, so some terms may be less than 2 digits in length.
%H Vincenzo Librandi, <a href="/A198776/b198776.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[2]
%t Select[FromDigits/@Partition[RealDigits[EulerGamma,10,500][[1]],2,1],PrimeQ] (* _Harvey P. Dale_, Mar 19 2020 *)
%Y Cf. A103773, A103789, A103793, A103808, A103809, A103810, A103811,
%Y A103812, A104824, A104825, A104826, A104843, A104844, A104845,
%Y A104846, A104847, A104848, A104849, A104850, A104936, A198161, A198162,
%Y A198163, A198164, A198165, A198166, A198167, A198168, A198169,
%Y A198170, A198171, A198172, A198173, A198175, A104851, A198177,
%Y A198777, A198778, A198779, A198780, A198781, A198782,
%Y A198783, A198784.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_, Oct 29 2011
|
