OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
A226295(14) = 46 is a record, so prime(14)=43 is a term.
MATHEMATICA
Select[Range[740], PrimeQ[#] && MultiplicativeOrder[#, p=NextPrime[#]] == p-1 &] (* Amiram Eldar, Jul 04 2019 *)
PROG
(PARI) isok(p) = isprime(p) && (q=nextprime(p+1)) && (znorder(Mod(p, q)) == q-1) \\ Michel Marcus, Jun 02 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
David James Sycamore, Jun 02 2019
EXTENSIONS
More terms from Michel Marcus, Jun 02 2019
STATUS
approved