A073303 Indices of prime digits in the decimal expansion of Pi.
0, 4, 6, 8, 9, 10, 13, 15, 16, 17, 21, 24, 25, 27, 28, 29, 31, 33, 39, 43, 46, 47, 48, 51, 53, 56, 61, 63, 64, 66, 73, 76, 83, 86, 89, 90, 91, 93, 96, 99, 102, 109, 111, 112, 114, 115, 120, 123, 130, 131, 133, 135, 136, 137, 139, 140, 141, 142, 143, 149, 156
Offset: 0
Examples
Pi=3.141592653, so the indices of prime digits are 0,4,6,8,9...
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
Flatten[Position[RealDigits[Pi,10,200][[1]],?PrimeQ]]-1 (* _Harvey P. Dale, Oct 01 2013 *)
Extensions
More terms from Harvey P. Dale, Oct 01 2013