OFFSET
1
LINKS
MATHEMATICA
Array[Boole@ PrimeQ[2^# - 1] &, 107] (* Michael De Vlieger, Feb 09 2020 *)
PROG
(PARI) A332219(n) = (isprime(n)&&isprime((2^n)-1));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 09 2020
STATUS
approved