%I #14 Sep 08 2022 08:45:51
%S 3,17,23,79
%N Primes p such that 11^p-10 is also prime.
%C a(5) > 15000. - _Michael S. Branicky_, Jul 26 2022
%e For p=3, 11^3-10=1321;
%e for p=17, 11^17-10=505447028499293761;
%e for p=23, 11^23-10=895430243255237372246521.
%t Select[Range[10^4], PrimeQ[#] && PrimeQ[11^# - 10] &] (* _Vincenzo Librandi_, May 18 2015 *)
%t Select[Prime[Range[25]],PrimeQ[11^#-10]&] (* _Harvey P. Dale_, Jul 18 2022 *)
%o (Magma) [ p: p in PrimesUpTo(2500)| IsPrime(11^p-10)];
%K nonn,more
%O 1,1
%A _Vincenzo Librandi_, Mar 14 2010
|