OFFSET
1,2
MATHEMATICA
a = 3; b = 9; mx = 60000; Union[Flatten[Table[a^n + b^m, {m, 0, Log[b, mx]}, {n, 0, Log[a, mx - b^m]}]]]/2
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Jun 19 2013
STATUS
approved