%I #9 Mar 18 2020 07:30:58
%S 4,10,13,15,16,31,36,59,65,73,90,91,95,104,105,118,119,123,125,164,
%T 185,189,199,216,230,246,254,279,295,296,298,300,331,338,344,356,361,
%U 374,384,409,413,431,435,441,485,501,519,521,525,583,599,609,619,625,636
%N Numbers k for which k^10+k^9-1 is prime.
%H Amiram Eldar, <a href="/A125966/b125966.txt">Table of n, a(n) for n = 1..10000</a>
%t Do[If[PrimeQ[x^10 + x^9 - 1], Print[x]], {x, 1, 400}]
%o (PARI) is(n)=isprime(n^10+n^9-1) \\ _Charles R Greathouse IV_, May 15 2013
%Y Cf. A000040, A045546, A125881-A125885, A125965-A125973.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 14 2006
%E More terms from _Amiram Eldar_, Mar 18 2020