A266476 Ordinal transform of A266475.

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

Offset: 1

Author

Alois P. Heinz, Dec 29 2015

Keywords

• nonn
• look

Comments

n is the a(n)-th positive integer having value A266475(n).

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..20000

Crossrefs

Cf. A266475.

Programs

Maple

g:= n-> ((l-> add(l[j]+j-1, j=1..nops(l)))(sort([seq(
        numtheory[pi](i[1])$i[2], i=ifactors(n)[2])]))):
b:= proc() 0 end:
a:= proc(n) option remember; local t;
      t:= g(n); b(t):= b(t)+1
    end:
seq(a(n), n=1..100);

Mathematica

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]}]]]];
b[_] = 0;
a[n_] := a[n] = With[{t = g[n]}, b[t] = b[t]+1];
Table[a[n], {n, 1, 100}] (* Jean-François Alcover, Dec 23 2021, after Alois P. Heinz *)