A302987 Primes p such that p+3 divides 3^p+3.
3, 7, 727, 1595287, 3773335151, 53968982887, 218662611751, 373627441111, 525882352087, 612618285511
Offset: 1
Programs
-
Mathematica
Select[Prime[Range[10000]], Divisible[3^# + 3, # + 3] &] (* Vincenzo Librandi, Apr 17 2018 *)
-
PARI
isok(p) = isprime(p) && (Mod(3,p+3)^p == Mod(-3,p+3)); \\ Michel Marcus, Apr 17 2018
Extensions
a(4)-a(5) from Michel Marcus, Apr 17 2018
a(6)-a(10) from Giovanni Resta, Apr 17 2018
Comments