1,1

No more terms < 10^4000. - David Wasserman, Feb 07 2005

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

Douglas Edward Iannucci, On duplicate representations as 2^x+3^y for nonnegative integers x and y, arXiv:1907.03347 [math.NT], 2019.

a(5) = 256 + 3 = 2^8 + 3^1 = 259 = 16 + 243 = 2^4 + 3^5.

(* Max exponent 8 is sufficient to get all known solutions *)

f[_] = 0; Reap[Do[n = 2^a + 3^b; f[n] = f[n] + 1; If[f[n] == 1, ab[n] = {a, b}, If[f[n] >= 2, Print[HoldForm[2^x + 3^y] /. Thread[{x, y} -> ab[n]], " = ", HoldForm[2^x + 3^y] /. Thread[{x, y} -> {a, b}], " = ", n]; Sow[n]]], {a, 0, 8}, {b, 0, 8}]][[2, 1]] // Union (* Jean-François Alcover, Apr 29 2014 *)

Sequence in context: A155030 A030468 A277290 * A157478 A297583 A088903

Adjacent sequences: A085631 A085632 A085633 * A085635 A085636 A085637

nonn,more,hard

Frank Ellermann, Jul 11 2003

approved