A104827 Primes from merging of 7 successive digits in decimal expansion of Pi allowing leading zeros.

1592653, 6535897, 2643383, 5028841, 6939937, 3993751, 348253, 1170679, 8086513, 5822317, 1725359, 4930381, 2881097, 4612847, 3165271, 2712019, 1201909, 4914127, 917153, 1133053, 3841469, 1469519, 6951941, 9433057

Offset: 1

Author

Zak Seidov, Mar 27 2005

Keywords

• nonn
• base

Comments

Leading zeros are permitted so some terms may have fewer than 7 digits. For example, 223, 907, 3137, and 4229 are all terms. - Harvey P. Dale, May 24 2020

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