A104828
Primes from merging of 8 successive digits in decimal expansion of Pi allowing leading zeros.
Original entry on oeis.org
28841971, 41971693, 82534211, 42117067, 30664709, 5822317, 31725359, 49303819, 75648233, 37867831, 71201909, 48566923, 26648213, 13393607, 25409171, 1133053, 9433057
Offset: 1
-
With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 500][[1]], 8, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)
A104829
Primes from merging of 9 successive digits in decimal expansion of Pi allowing leading zeros.
Original entry on oeis.org
795028841, 502884197, 28841971, 884197169, 971693993, 348253421, 421170679, 306647093, 812848111, 659334461, 233786783, 648566923, 346034861, 326648213, 829254091, 678925903, 1133053, 959195309, 530921861, 938183011
Offset: 1
-
With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 500][[1]], 9, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)
A104831
Primes from merging of 11 successive digits in decimal expansion of Pi.
Original entry on oeis.org
93238462643, 38462643383, 32795028841, 28841971693, 88419716939, 41971693993, 5822317253, 2841027019, 38521105559, 56659334461, 12847564823, 31652712019, 60631558817, 81748815209, 28292540917, 21384146951
Offset: 1
-
Select[FromDigits/@Partition[RealDigits[\[Pi],10,1000][[1]], 11,1],PrimeQ] (* Harvey P. Dale, Apr 21 2011 *)
A104832
Primes from merging of 12 successive digits in decimal expansion of Pi.
Original entry on oeis.org
141592653589, 415926535897, 28841971693, 884197169399, 494459230781, 282306647093, 359408128481, 174502841027, 810975665933, 128475648233, 326648213393, 146951941511, 727036575959, 575959195309, 953092186117
Offset: 1
-
With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 600][[1]], 12, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)
A104833
Primes from merging of 13 successive digits in decimal expansion of Pi.
Original entry on oeis.org
9265358979323, 8253421170679, 5940812848111, 6648213393607, 1748815209209, 1520920962829, 6282925409171, 5213841469519, 5194151160943, 4330572703657, 7595919530921, 9530921861173, 921861173819, 1738193261179, 8548074462379
Offset: 1
-
With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 600][[1]], 13, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)
A104834
Primes from merging of 14 successive digits in decimal expansion of Pi.
Original entry on oeis.org
23846264338327, 38462643383279, 53594081284811, 11055596446229, 46229489549303, 44612847564823, 19091456485669, 81748815209209, 36789259036001, 95194151160943, 91953092186117, 61173819326117
Offset: 1
-
With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 700][[1]], 14, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)
A104835
Primes from merging of 15 successive digits in decimal expansion of Pi.
Original entry on oeis.org
841971693993751, 384460955058223, 596446229489549, 19091456485669, 456485669234603, 610454326648213, 104543266482133, 488204665213841, 305727036575959, 270365759591953, 185480744623799, 227938183011949
Offset: 1
-
With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 700][[1]], 15, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)
A104836
Primes from merging of 16 successive digits in decimal expansion of Pi.
Original entry on oeis.org
8628034825342117, 3844609550582231, 1055596446229489, 5964462294895493, 6229489549303819, 3038196442881097, 8700660631558817, 6094330572703657, 9591953092186117, 1861173819326117, 8193261179310511, 4623799627495673
Offset: 1
-
Select[FromDigits/@Partition[RealDigits[\[Pi],10,500][[1]], 16,1], PrimeQ] (* Harvey P. Dale, Jun 20 2011 *)
A104837
Primes from merging of 17 successive digits in decimal expansion of Pi.
Original entry on oeis.org
89793238462643383, 79323846264338327, 33832795028841971, 79502884197169399, 48086513282306647, 46095505822317253, 81284811174502841, 74881520920962829, 52092096282925409
Offset: 1
-
With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 800][[1]], 17, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)
A104838
Primes from merging of 18 successive digits in decimal expansion of Pi.
Original entry on oeis.org
348253421170679821, 211706798214808651, 81284811174502841, 502841027019385211, 334461284756482337, 564856692346034861, 917153643678925903, 305305488204665213, 351885752724891227
Offset: 1
-
With[{pi = FromDigits/@Partition[RealDigits[Pi, 10, 900][[1]], 18, 1]}, Select[pi, PrimeQ]] (* Vincenzo Librandi, Apr 21 2013 *)
Comments