cp's OEIS Frontend

A322317 Ordinal transform of A322316.

%I A322317 #6 Dec 05 2018 08:00:47
%S A322317 1,1,2,1,2,1,3,1,2,3,4,1,5,4,5,1,6,2,7,3,6,7,8,1,9,8,2,4,10,2,11,1,9,
%T A322317 10,12,1,13,11,12,3,14,3,15,5,6,13,16,1,17,14,15,7,18,2,19,4,16,17,20,
%U A322317 3,21,18,8,1,22,4,23,9,19,20,24,1,25,21,22,10,26,5,27,2,3,23,28,4,29,24,25,5,30,5,31,11,26,27,32,1
%N A322317 Ordinal transform of A322316.
%H A322317 Antti Karttunen, <a href="/A322317/b322317.txt">Table of n, a(n) for n = 1..19683</a>
%H A322317 Antti Karttunen, <a href="/A322317/a322317.txt">Data supplement: n, a(n) computed for n = 1..65537</a>
%o A322317 (PARI)
%o A322317 up_to = 65537;
%o A322317 ordinal_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), pt); for(i=1, length(invec), if(mapisdefined(om,invec[i]), pt = mapget(om, invec[i]), pt = 0); outvec[i] = (1+pt); mapput(om,invec[i],(1+pt))); outvec; };
%o A322317 rgs_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(om,invec[i]), my(pp = mapget(om, invec[i])); outvec[i] = outvec[pp] , mapput(om,invec[i],i); outvec[i] = u; u++ )); outvec; };
%o A322317 A007814(n) = valuation(n,2);
%o A322317 A007949(n) = valuation(n,3);
%o A322317 A122841(n) = min(A007814(n), A007949(n));
%o A322317 A244417(n) = max(valuation(n,2), valuation(n,3));
%o A322317 v322316 = rgs_transform(vector(up_to, n, [A122841(n), A244417(n)]));
%o A322317 v322317 = ordinal_transform(v322316);
%o A322317 A322317(n) = v322317[n];
%Y A322317 Cf. A007814, A007949, A122841, A244417, A322316.
%Y A322317 Cf. also A126760.
%K A322317 nonn
%O A322317 1,3
%A A322317 _Antti Karttunen_, Dec 04 2018