OFFSET
1,1
COMMENTS
Conjecture: the sequence is finite.
Is this the same as the primes in A251862? - Michel Marcus, Apr 17 2018
a(11) > 10^12, if it exists. - Giovanni Resta, Apr 17 2018
MATHEMATICA
Select[Prime[Range[10000]], Divisible[3^# + 3, # + 3] &] (* Vincenzo Librandi, Apr 17 2018 *)
PROG
(PARI) isok(p) = isprime(p) && (Mod(3, p+3)^p == Mod(-3, p+3)); \\ Michel Marcus, Apr 17 2018
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Alex Ratushnyak, Apr 17 2018
EXTENSIONS
a(4)-a(5) from Michel Marcus, Apr 17 2018
a(6)-a(10) from Giovanni Resta, Apr 17 2018
STATUS
approved