A104830 Primes from merging of 10 successive digits in decimal expansion of Pi.
5926535897, 4197169399, 1693993751, 7510582097, 348253421, 4825342117, 5822317253, 812848111, 2841027019, 8521105559, 8954930381, 4756482337, 2712019091, 5432664821, 3266482133, 6072602491, 5588174881, 8815209209
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 500][[1]], 10, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)
Comments