A300292 Numbers k such that k^k + 9 is a prime.
2, 130, 140
Offset: 1
Crossrefs
Programs
-
PARI
isok(k) = ispseudoprime(k^k + 9); \\ Altug Alkan, Mar 16 2018
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.
isok(k) = ispseudoprime(k^k + 9); \\ Altug Alkan, Mar 16 2018
Select[Range[1000], PrimeQ[#^# - 5] &] (* Vaclav Kotesovec, Mar 25 2018 *)
isok(k) = ispseudoprime(k^k - 5); \\ Altug Alkan, Mar 17 2018
Select[Range[1000], PrimeQ[#^# - 10] &] (* Vaclav Kotesovec, Mar 25 2018 *)
isok(k) = ispseudoprime(k^k - 10); \\ Altug Alkan, Mar 17 2018
f[n_]:=PrimeQ[n^n+115];lst={};Do[If[f[n],AppendTo[lst,n]],{n,6!}];lst
is(n)=ispseudoprime(n^n+115) \\ Charles R Greathouse IV, Jun 13 2017
Comments