A139479 Numbers k such that 24*k+7 is a term of A000043.
0, 1, 5, 25, 53, 184, 4604, 1001524
Offset: 1
Programs
-
Mathematica
Select[(MersennePrimeExponent[Range[48]] - 7) / 24, IntegerQ] (* Amiram Eldar, Oct 17 2024 *)
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.
Select[(MersennePrimeExponent[Range[48]] - 7) / 24, IntegerQ] (* Amiram Eldar, Oct 17 2024 *)