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 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #22 Nov 02 2014 02:07:18
%S 4142135623,8872420969,9698078569,7537694807,7973799073,7846210703,
%T 2644121497,9935831413,6592750559,7010955997,1472851741,5251407989,
%U 2533965463,5339654633,6152583523,1525835239,3950547457,5750287759,5996172983,4084988471,6668713013
%N Primes from merging of 10 successive digits in decimal expansion of sqrt(2).
%C Leading zeros are not permitted, so each term is 10 digits in length.
%H Vincenzo Librandi, <a href="/A198161/b198161.txt">Table of n, a(n) for n = 1..1000</a>
%t With[{len=10},Select[FromDigits/@Partition[RealDigits[Sqrt[2],10,1000][[1]],len,1],IntegerLength[#]==len&&PrimeQ[#]&]]
%o (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
%Y For sqrt(2), see also A198162, A198163, A198164, A198165,A198166, A198167, A198168, A198169, A198161 (this sequence).
%Y For e, see A104843, A104844, A104845, A104846, A104847, A104848, A104849, A104850, A104851.
%Y For Pi, see A198175, A198170, A104824, A104825, A104826, A198171, A198172, A198173, A198174.
%Y For the Golden Ratio, see A198177, A103773, A103789, A103793, A103808, A103809, A103810, A103811, A103812.
%Y For the Euler-Mascheroni constant gamma, see A198776, A198777, A198778, A198779, A198780, A198781, A198782, A198783, A198784.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_, Oct 21 2011