OFFSET
1,1
COMMENTS
Essentially records in A001917. Sequence is infinite.
The Mersenne primes (A000668) are a subset. - Jeppe Stig Nielsen, Aug 30 2015
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..47
FORMULA
a(n) = prime(A152597(n)). - Amiram Eldar, Nov 16 2023
MATHEMATICA
r=0; p=3; L={}; While[Length@L < 20, v = (p-1)/ MultiplicativeOrder[2, p]; If[v > r, r = v; AppendTo[L, p]]; p = NextPrime@ p]; L (* Giovanni Resta, Aug 31 2015 *)
PROG
(PARI) r=0; forprime(p=3, 1e9, t=(p-1)/znorder(Mod(2, p)); if(t>r, r=t; print1(p", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Charles R Greathouse IV, May 31 2013
STATUS
approved