A133213 Prime partial sums of digits of decimal expansion of pi (A000796).
3, 23, 31, 61, 97, 103, 157, 173, 241, 271, 313, 421, 433, 443, 449, 491, 503, 503, 523, 541, 541, 547, 557, 607, 617, 617, 647, 673, 673, 733, 757, 773, 787, 811, 821, 823, 887, 907, 911, 929, 977, 983, 991, 997, 1019, 1103, 1123, 1123, 1171, 1201, 1201
Offset: 1
Programs
-
Mathematica
Select[Accumulate[First[RealDigits[N[ \[Pi],500]]]],PrimeQ] [Harvey Dale]
Extensions
Terms a(10)-a(16) added by Jason G. Wurtzel, Aug 18 2010
Further terms from Harvey P. Dale, Aug 21 2010
Comments