A160519 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

Offset: 1

Author

Reinhard Zumkeller, May 16 2009

Keywords

• nonn

Comments

A061987(n-1) = number of times a(n) is repeated in A088468.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A003586, A061987, A088468.

Programs

Mathematica

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 *)

Formula

a(1) = A088468(0); for n>1: a(n) = A088468(A003586(n)) and a(m) < A088468(m) for m < A003586(n).