1,1

No other n < 10^15. The intersection of A057897 and A099225. The representation question leads to a Pillai-like exponential Diophantine equation a^x-b^y = x+y for y > x > 1 and b > a > 1.

27 = 25^2+2 = 32^5-5, 248 = 7^3+3 = 2^8-8, 2194 = 3^7+7 = 13^3-3 and 32763 = 181^2+2 = 8^5-5.

nLim=40000; lst1={}; Do[k=2; While[n=m^k-k; n<=nLim, AppendTo[lst1, n]; k++ ], {m, 2, Sqrt[nLim]}]; lst2={}; Do[k=2; While[n=m^k+k; n<=nLim, AppendTo[lst2, n]; k++ ], {m, 2, Sqrt[nLim]}]; Intersection[lst1, lst2]

Cf. A074981 (n such that there is no solution to Pillai's equation).

Sequence in context: A075548 A030509 A042414 this_sequence A016107 A101379 A132652

Adjacent sequences: A099223 A099224 A099225 this_sequence A099227 A099228 A099229

nonn

T. D. Noe (noe(AT)sspectra.com), Oct 06 2004