login
a(n) = n^n + (n-1)^(n-1).
10

%I #18 Jun 26 2017 10:21:01

%S 2,5,31,283,3381,49781,870199,17600759,404197705,10387420489,

%T 295311670611,9201412118867,311791207040509,11414881932150269,

%U 449005897206417391,18884637964090410991,845687005960046315793

%N a(n) = n^n + (n-1)^(n-1).

%C For even n > 1, the absolute value of the discriminant of the polynomial x^n+x-1. [Corrected by _Artur Jasinski_, May 07 2010]

%C The largest known prime in this sequence is a(4) = 283.

%D R. P. Stanley, Enumerative Combinatorics, Cambridge, Vol. 2, 1999; see equation (6.7).

%H Walter Nissen, <a href="http://upforthecount.com/math/nnpomega.html">post on np ( n ) = n^n + (n+1)^(n+1)</a>, on home page <a href="http://upforthecount.com">"Up for the count!"</a>. (Updated Oct 02 2012)

%e a(3) = 2^2 + 3^3 = 4 + 27 = 31.

%t Join[{2}, Table[n^n+(n-1)^(n-1), {n, 2, 20}]] (* _T. D. Noe_, Aug 13 2004 *)

%t Join[{2},Total/@Partition[Table[n^n,{n,20}],2,1]] (* _Harvey P. Dale_, Jun 26 2017 *)

%o (PARI) A056788(n)=n^n+(n-1)^(n-1) \\ _M. F. Hasler_, Oct 02 2012

%Y Cf. A000312 (n^n), A086797 (discriminant of the polynomial x^n-x-1).

%Y Cf. A056187, A056790, A192397 (smallest & largest prime factor of a(n), records of the latter), A217435 = bigomega(a(n)).

%K nonn

%O 1,1

%A _Walter Nissen_, Aug 20 2000

%E Minor corrections by _M. F. Hasler_, Oct 02 2012