[go: up one dir, main page]

login
A104834
Primes from merging of 14 successive digits in decimal expansion of Pi.
1
23846264338327, 38462643383279, 53594081284811, 11055596446229, 46229489549303, 44612847564823, 19091456485669, 81748815209209, 36789259036001, 95194151160943, 91953092186117, 61173819326117
OFFSET
1,1
LINKS
MATHEMATICA
With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 700][[1]], 14, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)
CROSSREFS
Sequence in context: A003851 A003844 A132909 * A350363 A289149 A297355
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Mar 27 2005
STATUS
approved