A104927 Primes from merging of 4 successive digits in decimal expansion of (Pi^2).

5861, 3449, 4909, 8761, 6151, 1511, 5113, 4079, 4133, 4937, 3001, 2591, 9137, 7723, 2203, 1061, 6779, 9851, 5197, 8693, 3527, 6571, 7151, 5387, 5261, 2617, 9413, 1693, 9341, 1559, 3307, 5087, 3257, 3659, 2837, 2683, 6833, 3187, 3541, 5669, 8581, 5227

Offset

1,1

Links

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

Pi as defined at MathWorld.com

Expansion of Pi^2 done to 10,000 digits as part of Project Gutenberg.

Mathematica

Select[FromDigits/@Partition[RealDigits[Pi^2, 10, 500][[1]], 4, 1], #>1000&&PrimeQ[#]&] (* Harvey P. Dale, Jul 08 2011 *)

Crossrefs

Sequence in context: A345188 A076808 A272324 * A183843 A212478 A333232

Adjacent sequences: A104924 A104925 A104926 * A104928 A104929 A104930

Keyword

nonn,base

Author

Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005

Extensions

Changed offset from 0 to 1 by Vincenzo Librandi, Apr 23 2013

Status

approved