|
%I #3 Mar 31 2012 10:22:02
%S 5,5,13,29,61,2097143,1679609,509,1021,8589934583,4093,67108859,16381,
%T 470184984569,4294967291,2218611106740436979,68719476731,
%U 1350851717672992079,1048573,10460353199,4194301,20013311644049280264138724244295359,16777213,108347059433883722041830239,20282409603651670423947251285999,58149737003040059690390159,72057594037927931,536870909,999999999999999999999999999989
%N Least prime of the form x^n-x-1.
%t a = {}; Do[k = 2; While[ ! PrimeQ[k^n -k - 1], k++ ]; AppendTo[a, k^n - k - 1], {n, 2, 30}]; a (*Artur Jasinski*)
%Y Cf. A002327, A002328, A116581, A126420, A126421, A126422, A126423, A126424, A126425, A126426, A126427, A126427, A126428, A126429, A126430, A126431, A126432 A126433, A126434, A126435, A126436, A126437, A126438.
%K nonn
%O 2,1
%A _Artur Jasinski_, Dec 26 2006, Jan 19 2007
|
