# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a064773 Showing 1-1 of 1 %I A064773 #19 Aug 10 2024 16:21:25 %S A064773 1,2,4,14,672 %N A064773 Numbers k such that k^k + p(k) is prime. %C A064773 672^672 + prime(672) (1900 digits) certified prime with Primo. %C A064773 Next term, if it exists, is bigger than 2000. - _Stefan Steinerberger_, Feb 03 2006 %C A064773 Next term, if it exists, is bigger than 20000. - _Michael S. Branicky_, Aug 10 2024 %t A064773 For[n=1, n <= 2000, n++, If[PrimeQ[n^n+Prime[n]], Print[n]]] (* _Stefan Steinerberger_, Feb 03 2006 *) %t A064773 Select[Range[680],PrimeQ[#^#+Prime[#]]&] (* _Harvey P. Dale_, Oct 09 2018 *) %K A064773 nonn,more %O A064773 1,2 %A A064773 _Jason Earls_, Oct 19 2001 %E A064773 More terms from _Stefan Steinerberger_, Feb 03 2006 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE