%I #17 Jul 12 2018 11:28:54
%S 0,9,4371,7985,14711
%N Numbers k such that 13^k + k^13 + 1 is prime.
%C a(6) > 10^5. - _Robert Price_, Feb 23 2014
%t Select[Range[0, 5000], PrimeQ[13^# + #^13 + 1] &]
%o (PARI) is(n)=ispseudoprime(13^n+n^13+1) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A100357, A215434-A215446, A216375.
%K nonn,hard,more
%O 1,2
%A _Vincenzo Librandi_, Sep 07 2012
%E a(4)-a(5) from _Robert Price_, Feb 23 2014