A198174 Primes from merging of 10 successive digits in decimal expansion of Pi, in the order of appearance.

5926535897, 4197169399, 1693993751, 7510582097, 4825342117, 5822317253, 2841027019, 8521105559, 8954930381, 4756482337, 2712019091, 5432664821, 3266482133, 6072602491, 5588174881, 8815209209, 6282925409, 2540917153, 5903600113, 8204665213, 3841469519

Offset: 1

Author

Harvey P. Dale, Oct 21 2011

Keywords

• nonn
• base

Comments

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

See A104830 for the variant without this restriction. - M. F. Hasler, Nov 01 2014

Links

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

Crossrefs

Cf., for Pi: A198175, A198170, A104824, A104825, A104826, A198171, A198172, A198173, A198174 (this) and A104830 (a variant).

Cf., for sqrt(2): A198162, A198163, A198164, A198165,A198166, A198167, A198168, A198169, A198161.

Cf., for e: A104843, A104844, A104845, A104846, A104847, A104848, A104849, A104850, A104851.

Cf., for the Golden Ratio: A198177, A103773, A103789, A103793, A103808, A103809, A103810, A103811, A103812.

Cf., for the Euler-Mascheroni constant gamma: A198776, A198777, A198778, A198779, A198780, A198781, A198782, A198783, A198784.

Programs

Mathematica

With[{len=10},Select[FromDigits/@Partition[RealDigits[Pi,10,1000][[1]], len,1],IntegerLength[#]==len&&PrimeQ[#]&]]

PARI

A198174(n, x=Pi, m=10, silent=0)={m=10^m; for(k=1, default(realprecision), (isprime(p=x\.1^k%m)&&p*10>m)||next; silent||print1(p", "); n--||return(p))} \\ The optional arguments can be used to produce other sequences of this series (cf. Crossrefs). Use e.g. \p999 to set precision to 999 digits. - M. F. Hasler, Nov 01 2014