A104823 Primes from merging of three successive digits in decimal expansion of Pi.

653, 643, 433, 383, 419, 197, 971, 937, 751, 97, 307, 89, 421, 211, 67, 821, 823, 647, 709, 223, 317, 359, 811, 701, 19, 193, 521, 211, 229, 881, 109, 97, 659, 593, 461, 823, 233, 337, 271, 19, 821, 607, 491, 127

Offset: 1

Author

Zak Seidov, Mar 27 2005

Keywords

• nonn
• base

Comments

Leading zeros are permitted, so not every term is 3 digits in length. - Harvey P. Dale, Oct 24 2011

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]], 3, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 23 2013 *)