A322815 Lexicographically earliest such sequence a that a(i) = a(j) => A048675(i) = A048675(j) for all i, j.

1, 2, 3, 3, 4, 5, 6, 5, 4, 7, 8, 4, 9, 10, 11, 4, 12, 7, 13, 11, 14, 15, 16, 7, 6, 17, 11, 14, 18, 19, 20, 7, 21, 22, 23, 11, 24, 25, 26, 19, 27, 28, 29, 21, 6, 30, 31, 11, 8, 10, 32, 26, 33, 19, 34, 28, 35, 36, 37, 6, 38, 39, 23, 11, 40, 41, 42, 32, 43, 44, 45, 19, 46, 47, 14, 35, 48, 49, 50, 6, 6, 51, 52, 23, 53, 54, 55, 41, 56, 10, 57, 43, 58, 59, 60, 19, 61, 15, 34, 14

Offset

1,2

Comments

Restricted growth sequence transform of A048675.

For all i, j > 1:

a(i) = a(j) => A277892(i) = A277892(j),

a(i) = a(j) => A322812(i) = A322812(j).

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

Prog

(PARI) up_to = 65537;
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; };
A048675(n) = my(f = factor(n)); sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2; \\ From A048675
v322815 = rgs_transform(vector(up_to, n, A048675(n)));
A322815(n) = v322815[n];

Crossrefs

Cf. A046523, A048675, A277892, A322812, A322816.

Sequence in context: A322806 A332809 A290801 * A244041 A331835 A022290

Adjacent sequences: A322812 A322813 A322814 * A322816 A322817 A322818

Keyword

nonn

Author

Antti Karttunen, Dec 27 2018

Status

approved