login
The n-th index m such that A330439(m) = n.
2

%I #16 Dec 18 2019 22:00:43

%S 0,7,12,29,59,72,85,142,190,205,238,270,305,318,402,492,619,652,795,

%T 845,950,996,1121,1163,1228,1393,1548,1662,1756,1920,1937,2106,2202,

%U 2351,2448,2555,2594,2707,2788,3254,3420,3466,3663,3974,4136,4282,4363,4621,4732

%N The n-th index m such that A330439(m) = n.

%H Alois P. Heinz, <a href="/A330589/b330589.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A330587(n,n).

%p b:= proc() 0 end:

%p g:= proc(n) option remember; local t;

%p t:= `if`(n<2, n, b(g(n-1))+b(g(n-2)));

%p b(t):= b(t)+1; t

%p end:

%p f:= proc(n) option remember; b(g(n)) end:

%p a:= proc() local a, b, t; a, b, t:= proc() end, proc() 0 end, -1;

%p proc(k) local h;

%p while b(k)<k do t:= t+1; h:= f(t);

%p b(h):= b(h)+1; if b(h)=h then a(h):= t fi

%p od: a(k)

%p end

%p end():

%p seq(a(n), n=1..50);

%Y Main diagonal of A330587.

%Y Cf. A316774, A330439.

%K nonn

%O 1,2

%A _Alois P. Heinz_, Dec 18 2019