A198161 Primes from merging of 10 successive digits in decimal expansion of sqrt(2).

4142135623, 8872420969, 9698078569, 7537694807, 7973799073, 7846210703, 2644121497, 9935831413, 6592750559, 7010955997, 1472851741, 5251407989, 2533965463, 5339654633, 6152583523, 1525835239, 3950547457, 5750287759, 5996172983, 4084988471, 6668713013

Offset

1,1

Comments

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

Links

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

Mathematica

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

Prog

(PARI) A198161(n, x=sqrt(2), 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 02 2014

Crossrefs

For sqrt(2), see also A198162, A198163, A198164, A198165,A198166, A198167, A198168, A198169, A198161 (this sequence).

For e, see A104843, A104844, A104845, A104846, A104847, A104848, A104849, A104850, A104851.

For Pi, see A198175, A198170, A104824, A104825, A104826, A198171, A198172, A198173, A198174.

For the Golden Ratio, see A198177, A103773, A103789, A103793, A103808, A103809, A103810, A103811, A103812.

For the Euler-Mascheroni constant gamma, see A198776, A198777, A198778, A198779, A198780, A198781, A198782, A198783, A198784.

Sequence in context: A234051 A038831 A038820 * A244064 A255344 A186590

Adjacent sequences: A198158 A198159 A198160 * A198162 A198163 A198164

Keyword

nonn,base

Author

Harvey P. Dale, Oct 21 2011

Status

approved