%I #18 Mar 25 2018 13:13:39
%S 0,1,11,25,35,85,499,1403,3511,3739,8005
%N Numbers k such that 5^k + 5*k + 1 is prime.
%C Next term, if it exists, is greater than 20000. - _Vaclav Kotesovec_, Mar 25 2018
%t Flatten[{0, Select[Range[1000], PrimeQ[5^# + 5*# + 1] &]}] (* _Vaclav Kotesovec_, Mar 25 2018 *)
%o (PARI) for(n=0, 500, if(isprime(5^n+5*n+1), print1(n", ")))
%Y A301638 gives the primes.
%Y Cf. A171058, A301634.
%K nonn,more
%O 1,3
%A _Seiichi Manyama_, Mar 25 2018
%E a(8)-a(11) from _Vaclav Kotesovec_, Mar 25 2018
|