cp's OEIS Frontend

A266476 Ordinal transform of A266475.

%I A266476 #15 Dec 23 2021 13:26:11
%S A266476 1,1,1,1,2,1,2,1,1,2,3,1,2,3,4,1,2,1,2,3,3,4,1,1,5,4,2,3,2,4,2,1,5,5,
%T A266476 6,1,2,3,6,3,1,4,1,5,6,3,2,1,7,7,8,4,2,2,8,3,5,4,1,4,1,5,6,1,9,7,1,5,
%U A266476 6,8,1,2,2,2,9,6,10,7,1,3,3,3,1,4,10,3,7,5,1,6,11,7,8,4,8,2,1,9,10,9
%N A266476 Ordinal transform of A266475.
%C A266476 n is the a(n)-th positive integer having value A266475(n).
%H A266476 Alois P. Heinz, <a href="/A266476/b266476.txt">Table of n, a(n) for n = 1..20000</a>
%p A266476 g:= n-> ((l-> add(l[j]+j-1, j=1..nops(l)))(sort([seq(
%p A266476         numtheory[pi](i[1])$i[2], i=ifactors(n)[2])]))):
%p A266476 b:= proc() 0 end:
%p A266476 a:= proc(n) option remember; local t;
%p A266476       t:= g(n); b(t):= b(t)+1
%p A266476     end:
%p A266476 seq(a(n), n=1..100);
%t A266476 g[n_] := Function[l, Sum[l[[j]]+j-1, {j, 1, Length[l]}]][Sort[ Flatten[ Table[ Array[ PrimePi[i[[1]]]&, i[[2]]], {i, FactorInteger[n]}]]]];
%t A266476 b[_] = 0;
%t A266476 a[n_] := a[n] = With[{t = g[n]}, b[t] = b[t]+1];
%t A266476 Table[a[n], {n, 1, 100}] (* _Jean-François Alcover_, Dec 23 2021, after _Alois P. Heinz_ *)
%Y A266476 Cf. A266475.
%K A266476 nonn,look
%O A266476 1,5
%A A266476 _Alois P. Heinz_, Dec 29 2015