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.
%I A139484 #18 Sep 04 2023 16:36:20
%S A139484 1,2,5,129,1536,5430,13138099
%N A139484 Indices of Mersenne primes among primes of the form 24k + 7 (A107006).
%C A139484 All Mersenne primes with the exception of the first one (3) are of the form 24*k + 7.
%C A139484 Sequence lists indices m where A139483(m) is a Mersenne prime.
%e A139484 5 is in this sequence, because A107006(5) is a Mersenne prime.
%t A139484 w = {2, 3, 5, 7, 13, 17, 19, 31, 61, 89, 107, 127, 521, 607}; Do[w[[n]] = 2^w[[n]] - 1, {n, 1, Length[w]}]; c = 0; a = {}; Do[k = 24 n + 7; If[PrimeQ[k], c = c + 1; If[MemberQ[w, k], AppendTo[a, c]]], {n, 1, 10000000}]; a
%t A139484 With[{mps=2^#-1&/@MersennePrimeExponent[Range[20]]},Position[ Select[ 24*Range[0,10^8]+7,PrimeQ],_?(MemberQ[mps,#]&)]]//Flatten (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 20 2019 *)
%Y A139484 Cf. A107006, A124477, A139479, A139483.
%K A139484 nonn,hard,more
%O A139484 2,2
%A A139484 _Artur Jasinski_, Apr 23 2008
%E A139484 Edited name and added example by _Dmitry Kamenetsky_, Jan 02 2011
%E A139484 a(8) from _Charles R Greathouse IV_, Mar 22 2011