A104926 Primes from merging of 3 successive digits in decimal expansion of Pi^2.

401, 883, 449, 761, 151, 113, 353, 313, 641, 349, 937, 241, 419, 773, 223, 137, 467, 727, 761, 617, 677, 197, 563, 571, 769, 421, 571, 151, 617, 941, 251, 887, 307, 257, 853, 659, 577, 283, 379, 683, 331, 463, 541, 269, 227, 227, 709, 547, 859, 607, 647

Offset

1,1

Links

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

Eric Weisstein's World of Mathematics, Pi.

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

Mathematica

Select[FromDigits/@Partition[RealDigits[Pi^2, 10, 100][[1]], 3, 1], #>100&&PrimeQ[#]&] (* Vincenzo Librandi, Apr 23 2013 *)

Crossrefs

Cf. A002388.

Sequence in context: A141026 A158313 A094614 * A031718 A102324 A156785

Adjacent sequences: A104923 A104924 A104925 * A104927 A104928 A104929

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