login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 56th year, we are closing in on 350,000 sequences, and we’ve crossed 9,700 citations (which often say “discovered thanks to the OEIS”).

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A198174 Primes from merging of 10 successive digits in decimal expansion of Pi, in the order of appearance. 20
5926535897, 4197169399, 1693993751, 7510582097, 4825342117, 5822317253, 2841027019, 8521105559, 8954930381, 4756482337, 2712019091, 5432664821, 3266482133, 6072602491, 5588174881, 8815209209, 6282925409, 2540917153, 5903600113, 8204665213, 3841469519 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

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

MATHEMATICA

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

PROG

(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

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.

Sequence in context: A032433 A225036 A104830 * A034646 A234378 A046894

Adjacent sequences:  A198171 A198172 A198173 * A198175 A198176 A198177

KEYWORD

nonn,base

AUTHOR

Harvey P. Dale, Oct 21 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified December 5 06:05 EST 2021. Contains 349531 sequences. (Running on oeis4.)