A302091 Primes of form 6*k^k + 5.
11, 29, 167, 279941, 4941263
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
Select[Table[6 n^n + 5, {n, 20}], PrimeQ] (* Harvey P. Dale, Oct 24 2021 *)
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
Select[Table[6 n^n + 5, {n, 20}], PrimeQ] (* Harvey P. Dale, Oct 24 2021 *)
Select[Range[1, 1000], PrimeQ[5*#^# + 4] &] (* Vaclav Kotesovec, Apr 01 2018 *)
for(n=0, 500, if(isprime(5*n^n+4), print1(n", ")))
lista(nn) = forstep(n=1, nn, 2, if(ispseudoprime(5*n^n+4), print1(n, ", "))); \\ Altug Alkan, Apr 01 2018
Comments