A198171 Primes from merging of 7 successive digits in decimal expansion of Pi forbidding leading zeros.

1592653, 6535897, 2643383, 5028841, 6939937, 3993751, 1170679, 8086513, 5822317, 1725359, 4930381, 2881097, 4612847, 3165271, 2712019, 1201909, 4914127, 1133053, 3841469, 1469519, 6951941, 9433057, 9326117, 4462379, 2749567, 5272489, 8912279, 8183011

Offset

1,1

Comments

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

Links

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

Mathematica

With[{len=7}, Select[FromDigits/@Partition[RealDigits[Pi, 10, 1000][[1]], len, 1], IntegerLength[#]==len&&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, A198170, A198172, A198173, A198174, A198175, A104851, A198177.

Sequence in context: A234830 A262185 A104827 * A220467 A235174 A234410

Adjacent sequences: A198168 A198169 A198170 * A198172 A198173 A198174

Keyword

nonn,base,changed

Author

Harvey P. Dale, Oct 21 2011

Status

approved