A198170 Primes from merging of 3 successive digits in decimal expansion of Pi.

653, 643, 433, 383, 419, 197, 971, 937, 751, 307, 421, 211, 821, 823, 647, 709, 223, 317, 359, 811, 701, 193, 521, 211, 229, 881, 109, 659, 593, 461, 823, 233, 337, 271, 821, 607, 491, 127, 587, 631, 881, 881, 829, 409, 643, 367, 113, 521, 941, 151, 433, 727

Offset

1,1

Comments

Leading zeros are not permitted, so each term is 3 digits in length.

Links

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

Mathematica

Select[FromDigits/@Partition[RealDigits[Pi, 10, 1000][[1]], 3, 1], IntegerLength[#]==3&&PrimeQ[#]&]

Crossrefs

Cf. A103773, A103789, A103793, A103808, A103809, A103810, A103811, A103812, A104824, A104825, A104826, A104843, A104844, A104845, A104846, A104847, A104848, A104849, A104850, A198161, A198162, A198163, A198164, A198165, A198166, A198167, A198168, A198169, A198171, A198172, A198173, A198174, A198175, A104851, A198177.

Sequence in context: A188414 A089673 A104823 * A145125 A145202 A188366

Adjacent sequences: A198167 A198168 A198169 * A198171 A198172 A198173

Keyword

nonn,base

Author

Harvey P. Dale, Oct 21 2011

Status

approved