A104829 Primes from merging of 9 successive digits in decimal expansion of Pi allowing leading zeros.
795028841, 502884197, 28841971, 884197169, 971693993, 348253421, 421170679, 306647093, 812848111, 659334461, 233786783, 648566923, 346034861, 326648213, 829254091, 678925903, 1133053, 959195309, 530921861, 938183011
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]], 9, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)