|
%I #15 Sep 08 2022 08:46:10
%S 1,4,7,5,9,7,9,9,1,5,2,1,4,1,8,0,2,3,5,0,8,4,8,9,8,6,2,2,7,3,7,3,8,1,
%T 7,3,6,3,1,2,0,6,6,1,4,5,3,3,3,1,6,9,7,7,5,1,4,7,7,7,1,2,1,6,4,7,8,5,
%U 7,0,2,9,7,8,7,8,0,7,8,9,4,9,3,7,7,4,0,7,3,3,7,0,4,9,3,8,9,2,8,9,3,8,2,7,4
%N Decimal expansion of 2^2203 - 1, the 16th Mersenne prime A000668(16).
%C The 13th through the 17th Mersenne primes were found in 1952 by Raphael M. Robinson, using SWAC.
%H Arkadiusz Wesolowski, <a href="/A248932/b248932.txt">Table of n, a(n) for n = 664..1327</a>
%H D. H. Lehmer, <a href="http://www.ams.org/journals/mcom/1953-07-041/S0025-5718-53-99371-5/S0025-5718-53-99371-5.pdf">Two New Mersenne Primes</a>, Mathematics of Computation, vol. 7, No. 41 (1952), p. 72.
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Mersenne_prime">Mersenne prime</a>
%F 2^A000043(16) - 1.
%e 14759799152141802350848986227373817363120661453331697751477712164785702...
%t RealDigits[2^2203-1,10,120][[1]] (* _Harvey P. Dale_, Oct 09 2017 *)
%o (Magma) Reverse(Intseq(2^2203-1));
%o (PARI) eval(Vec(Str(2^2203-1)))
%Y Cf. A169684 = A000668(11), A169681 = A000668(12), A169685 = A000668(13), A204063 = A000668(14), A248931 = A000668(15), A248933 = A000668(17), A248934 = A000668(18), A248935 = A000668(19), A248936 = A000668(20).
%K nonn,cons,easy,fini,full
%O 664,2
%A _Arkadiusz Wesolowski_, Oct 17 2014
|
