OFFSET
1,1
COMMENTS
Primes in A216822.
LINKS
V. Raman, Table of n, a(n) for n = 1..10000
Mersenne Forum, Prime Conjecture
MATHEMATICA
Select[Prime[Range[500]], PowerMod[2, #, #(#+1)]==2&] (* Harvey P. Dale, Mar 25 2019 *)
PROG
(PARI) for(n=1, 10000, if((2^n)%(n*(n+1))==2&&isprime(n), printf(n", ")))
(Python)
from sympy import primerange
A217466_list = [p for p in primerange(1, 10**6) if pow(2, p, p*(p+1)) == 2] # Chai Wah Wu, Mar 25 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
V. Raman, Oct 04 2012
STATUS
approved