OFFSET
1,1
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
MATHEMATICA
a = 4; b = 8; mx = 70000; Union[Flatten[Table[a^n + b^m, {m, 0, Log[b, mx]}, {n, 0, Log[a, mx - b^m]}]]]
With[{upto=66000}, Select[Union[4^#[[1]]+8^#[[2]]&/@Tuples[Range[ 0, Log[ 4, upto]], 2]], #<=upto&]] (* Harvey P. Dale, Sep 15 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Jun 19 2013
STATUS
approved