A226822 Numbers of the form 4^j + 8^k, for j and k >= 0.
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
Keywords
Links
- T. D. Noe, Table of n, a(n) for n = 1..10000
Programs
-
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 *)