A173058 Leyland numbers (Cubes), a^b+b^a, a and b > 1.

8, 512, 1056589062271330492704679569833033213037694652072243044255921418053347805113449718948834511775314375789348789986514257357764695119005371074501077956925879153816773367998010168337463035352852882106048465816422376808296056585503123477676793797534072952979077161795475996672

Offset

1,1

Links

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

Example

2^3=8, 8^3=512,
101851798816724304313422284420468908052573419683296812531807022467719064988166\
8353091698688^3=1056...6672

Mathematica

f[a_, b_]:=a^b+b^a; Select[Union[Flatten[Table[f[a, b], {a, 2, 150}, {b, 2, 150}]]], IntegerQ[(#1)^(1/3)]&]

Crossrefs

Cf. A076980, A173054, A173055, A173056

Sequence in context: A035131 A067512 A067505 * A107672 A091112 A015480

Adjacent sequences: A173055 A173056 A173057 * A173059 A173060 A173061

Keyword

nonn,bref

Author

Vladimir Joseph Stephan Orlovsky, Feb 08 2010

Status

approved