[go: up one dir, main page]

login
Range and record values of A088468.
4

%I #8 Jul 13 2023 01:52:48

%S 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,

%T 93,113,114,115,136,151,159,194,200,201,229,264,265,274,330,351,352,

%U 388,458,465,475,559,615,616,617,662,788,816,827,947,1073,1074,1082,1137

%N Range and record values of A088468.

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

%H Amiram Eldar, <a href="/A160519/b160519.txt">Table of n, a(n) for n = 1..10000</a>

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

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

%Y Cf. A003586, A061987, A088468.

%K nonn

%O 1,2

%A _Reinhard Zumkeller_, May 16 2009