A073302 Indices of prime digits (2, 3, 5, 7) in the decimal expansion of e.
0, 1, 4, 8, 11, 15, 16, 17, 18, 19, 22, 24, 26, 28, 29, 30, 33, 36, 37, 38, 39, 40, 42, 45, 50, 52, 53, 60, 62, 63, 64, 65, 68, 71, 73, 74, 75, 76, 78, 79, 82, 83, 85, 87, 89, 91, 92, 93, 98, 99, 101, 102, 106, 110, 111, 114, 116, 119
Offset: 1
Examples
e=2.71828182... so the indices of prime digits are 0,1,4,8...
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A001113.
Programs
-
Mathematica
With[{edgs=RealDigits[E,10,120][[1]]},Flatten[Position[edgs,?(PrimeQ[#]&)]]-1] (* _Harvey P. Dale, Apr 11 2024 *)
Extensions
More terms from Ray G. Opao, Aug 31 2004