Amiram Eldar, <a href="/A160519/b160519_1.txt">Table of n, a(n) for n = 1..10000</a>
Amiram Eldar, <a href="/A160519/b160519_1.txt">Table of n, a(n) for n = 1..10000</a>
reviewed
approved
proposed
reviewed
editing
proposed
Amiram Eldar, <a href="/A160519/b160519_1.txt">Table of n, a(n) for n = 1..10000</a>
f[0] = 1; f[n_] := f[n] = f[Floor[n/2]] + f[Floor[n/3]]; With[{max = 10^4}, f /@ Join[{0}, Sort@ Flatten@ Table[2^i*3^j, {i, 0, Log2[max]}, {j, 0, Log[3, max/2^i]}]]] (* Amiram Eldar, Jul 13 2023 *)
approved
editing
_Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), _, May 16 2009
Range and record values of A088468.
1, 2, 3, 4, 5, 7, 8, 9, 12, 13, 16, 20, 21, 22, 28, 33, 37, 38, 48, 49, 55, 65, 66, 81, 86, 93, 113, 114, 115, 136, 151, 159, 194, 200, 201, 229, 264, 265, 274, 330, 351, 352, 388, 458, 465, 475, 559, 615, 616, 617, 662, 788, 816, 827, 947, 1073, 1074, 1082, 1137
1,2
nonn
Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), May 16 2009
approved