A104824 Primes from merging of 4 successive digits in decimal expansion of Pi.

4159, 5897, 9323, 8419, 1693, 8209, 9749, 5923, 2089, 2803, 4211, 7253, 8111, 1117, 7019, 193, 8521, 6229, 1097, 6659, 8233, 7867, 1201, 9091, 5669, 4603, 4861, 3607, 4127, 631, 5881, 5209, 9209, 4091, 3643, 5903, 11, 113, 6521, 1511, 1609, 9433

Offset: 1

Author

Zak Seidov, Mar 27 2005

Keywords

• nonn
• base

Comments

Leading zeros permitted. - Harvey P. Dale, Dec 09 2013

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A104819-A104842.

Programs

Mathematica

With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 500][[1]], 4, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)