%I #12 Jun 11 2021 05:01:37
%S 2,3,19,23,31,37,251,283,977,28687,32993
%N Numbers k such that (18^k - 5^k)/13 is prime.
%C All terms are primes.
%C a(12) > 10^5. - _Robert Price_, Aug 10 2013
%t k=18; Do[p=Prime[n]; f=(k^p-5^p)/(k-5); If[ PrimeQ[f], Print[p] ], {n,1,100}]
%o (PARI) is(n)=isprime((18^n-5^n)/13) \\ _Charles R Greathouse IV_, Feb 17 2017
%Y Cf. A062572, A128344, A128345, A128346, A128347, A128348, A128349, A128350, A128351, A128352, A128354.
%Y Cf. A004061, A082182, A121877, A059802.
%Y Cf. A057171, A082387, A122853, A128335, A128336, A128337, A128338, A128339, A128340, A128341, A128342.
%K hard,more,nonn
%O 1,1
%A _Alexander Adamchuk_, Feb 27 2007
%E a(10)-a(11) from _Robert Price_, Aug 10 2013
|