|
%I #21 Apr 05 2024 16:54:14
%S 9,2,4,9,4,7,7,3,8,0,0,6,7,0,1,3,2,2,2,4,7,7,5,8,3,8,2,5,4,7,6,6,4,0,
%T 5,1,9,2,5,3,5,4,4,0,1,0,7,9,9,5,8,2,9,9,0,2,1,0,3,0,9,3,6,0,8,0,2,9,
%U 5,6,5,6,5,8,0,5,5,9,6,1,0,0,4,7,6,1,3,1,2,1,5,5,5,7,3,0,5,8,4,6,4,9,0,2,4
%N Decimal expansion of 2^13466917 - 1, the 39th Mersenne prime A000668(39).
%C Since 2^13466917 ends in ...6259072, this sequence ends in ...6,2,5,9,0,7,1
%H Muniru A Asiru, <a href="/A089065/b089065.txt">Table of n, a(n) for n = 4053946..4055946</a>
%H Peter Alfeld, <a href="http://www.math.utah.edu/~alfeld/math/largeprime.html">Largest Known Prime</a>.
%H OEIS Wiki, <a href="/wiki/Mersenne_primes">Mersenne primes</a> (with a list of similar sequences)
%p evalf[120](2^(13466917)-1); # _Muniru A Asiru_, Mar 20 2019
%t IntegerDigits[2^13466917 - 1][[;;100]] (* _Paolo Xausa_, Apr 05 2024 *)
%o (PARI) digitsm39(n) = { default(realprecision,n); p10 = frac(m*log(2)/log(10)); b = 10^p10/10; for(j=1,n, v=b*10; d=floor(v); b=v-d; print1(d",") ) }
%Y Cf. A000043, A000668.
%K fini,cons,nonn
%O 4053946,1
%A _Cino Hilliard_, Dec 20 2003
%E Edited by _Georg Fischer_, Mar 19 2019
|
