cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A335889 a(n) is the number of Mersenne primes between consecutive perfect numbers.

This page as a plain text file.
%I A335889 #29 Jul 20 2020 08:32:57
%S A335889 1,2,0,3,1,0,0,3,1,0,0,2,0,3,2,1,0,0,0,3,0,2,1,0,1,1,2,1,0,0,4,0,0,0,
%T A335889 2,0,2,3,3
%N A335889 a(n) is the number of Mersenne primes between consecutive perfect numbers.
%H A335889 Chris K. Caldwell and G. L. Honaker, Jr., <a href="https://primes.utm.edu/curios/page.php?curio_id=38700">Prime Curio for 756839</a>
%e A335889 a(1) = 1 because there is exactly 1 Mersenne prime (7) between the first and second perfect numbers (6 and 28).
%e A335889 a(4) = 3 because there are exactly 3 Mersenne primes (8191, 131071, 524287) between the fourth and fifth perfect numbers (8128 and 33550336).
%t A335889 p = MersennePrimeExponent @ Range[47];mer[p_] := 2^p - 1; perf[p_] := mer[p] * 2^(p - 1); mers = mer /@ p; perfs = Select[perf /@ p, # < mers[[-1]] &]; BinCounts[mers, {perfs}] (* _Amiram Eldar_, Jun 29 2020 *)
%Y A335889 Cf. A000043, A000396, A000668.
%K A335889 nonn,more
%O A335889 1,2
%A A335889 _G. L. Honaker, Jr._, Jun 28 2020
%E A335889 a(5)-a(13) from _Metin Sariyar_, Jun 28 2020
%E A335889 a(14)-a(16) and a(20)-a(39) from _Metin Sariyar_, Jun 29 2020
%E A335889 a(17)-a(19) from _Amiram Eldar_, Jun 29 2020