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 * A016107 A101379 A132652
Adjacent sequences: A099223 A099224 A099225 * A099227 A099228 A099229
nonn
T. D. Noe (noe(AT)sspectra.com), Oct 06 2004
