A101456 Prime digits in the decimal expansion of Euler's constant (or Euler-Mascheroni constant) gamma.
5, 7, 7, 2, 5, 5, 3, 2, 5, 2, 2, 2, 3, 2, 5, 3, 3, 5, 3, 2, 3, 5, 5, 7, 7, 2, 3, 7, 7, 2, 7, 7, 7, 7, 3, 7, 3, 2, 7, 7, 5, 3, 7, 2, 7, 2, 5, 5, 2, 3, 2, 2, 7, 3, 7, 2, 3, 5, 3, 2, 5, 3, 5, 3, 3, 3, 7, 2, 3, 7, 3, 3, 7, 7, 3, 7, 7, 3, 2, 7, 2, 5, 5, 2, 5, 2, 7, 7, 3, 5, 2, 3, 5, 7, 5, 3, 2, 3, 3, 5, 7, 7, 5, 2, 2
Offset: 0
Links
- G. C. Greubel, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
Select[ RealDigits[ EulerGamma, 10, 275][[1]], PrimeQ[ # ] &] (* Robert G. Wilson v, Jan 21 2005 *)
Extensions
More terms from Robert G. Wilson v, Jan 21 2005