login
A226822
Numbers of the form 4^j + 8^k, for j and k >= 0.
1
2, 5, 9, 12, 17, 24, 65, 68, 72, 80, 128, 257, 264, 320, 513, 516, 528, 576, 768, 1025, 1032, 1088, 1536, 4097, 4100, 4104, 4112, 4160, 4352, 4608, 5120, 8192, 16385, 16392, 16448, 16896, 20480, 32769, 32772, 32784, 32832, 33024, 33792, 36864, 49152, 65537
OFFSET
1,1
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
Cf. A004050 (2^j + 3^k), A226806-A226832 (cases to 8^j + 9^k).
Sequence in context: A086343 A056549 A034806 * A034307 A239876 A070828
KEYWORD
nonn
AUTHOR
T. D. Noe, Jun 19 2013
STATUS
approved