%I #9 Feb 13 2021 01:14:03
%S 27,248,2194,32763
%N Numbers that can be represented as both a^x+x and b^y-y, for some a, b, x, y > 1.
%C No other terms < 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.
%e 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.
%t 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]
%Y Cf. A074981 (n such that there is no solution to Pillai's equation).
%K nonn,more
%O 1,1
%A _T. D. Noe_, Oct 06 2004
|