A225036 Primes from merging of 10 successive digits in the decimal expansion of Pi^2.
5913774023, 9137740231, 7402314407, 4023144077, 8735261779, 4830981887, 8309818873, 3307626667, 8853659527, 6595276357, 5952763577, 7635775283, 3577528379, 3792268331, 9085975607, 9264752779, 6698082641, 8968771057, 1057327889, 5972589229, 4137067777
Offset: 1
Links
- Bruno Berselli, Table of n, a(n) for n = 1..1000
- Simon Plouffe, Pi^2 to 10000 digits
Programs
-
Mathematica
With[{len = 10}, FromDigits /@ Select[Partition[RealDigits[Pi^2, 10, 600][[1]], len, 1], PrimeQ[FromDigits[#]] && IntegerLength[FromDigits[#]] == len &]]
Comments