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

89, 61, 83, 61, 11, 13, 53, 31, 13, 79, 41, 13, 37, 41, 19, 43, 17, 73, 37, 71, 23, 31, 59, 13, 37, 23, 31, 23, 67, 61, 61, 17, 67, 79, 19, 97, 71, 41, 23, 71, 19, 53, 73, 61, 17, 79, 41, 13, 41, 59, 83, 73, 67, 71, 11, 43, 89, 71, 41, 53, 59, 83, 37, 79, 83, 31, 41, 97, 73

Offset: 1

Author

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

Keywords

• nonn
• base

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000
• Simon Plouffe, Miscellaneous Mathematical Constants, Expansion of Pi^2 to 10000 decimals, project Gutenberg.

Crossrefs

Cf. A002388.

Programs

Mathematica

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

Extensions

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