A143782 Numbers of the form : k=k^n-n^k, (k=3).

2, 0, -1, 0, -3, 898

Offset

1,1

Comments

The next number is too large to include.

Links

Table of n, a(n) for n=1..6.

Mathematica

lst={}; k=3; Do[k=k^n-n^k; AppendTo[lst, IntegerPart[k]], {n, 7}]; lst

Crossrefs

Sequence in context: A324811 A086780 A158612 * A073430 A371093 A053389

Adjacent sequences: A143779 A143780 A143781 * A143783 A143784 A143785

Keyword

sign

Author

Vladimir Joseph Stephan Orlovsky, Aug 31 2008

Status

approved