A303755 Ordinal transform of A289625.

1, 2, 1, 2, 1, 3, 1, 1, 2, 2, 1, 2, 1, 3, 1, 2, 1, 4, 1, 3, 1, 2, 1, 1, 1, 2, 2, 2, 1, 4, 1, 1, 1, 2, 1, 3, 1, 3, 2, 1, 1, 4, 1, 2, 3, 2, 1, 2, 2, 2, 1, 4, 1, 4, 1, 1, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 3, 1, 5, 1, 2, 1, 2, 2, 2, 1, 6, 1, 1, 1, 2, 1, 3, 1, 3, 1, 1, 1, 7, 1, 2, 2, 2, 1, 1, 1, 4, 3, 3, 1, 4, 1, 1, 2

Offset

1,2

Comments

Equally, ordinal transform of A289626.

Links

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

Prog

(PARI)
up_to = 65537;
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; };
A289625(n) = { my(m=1, p=2, v=znstar(n)[2]); for(i=1, length(v), m *= p^v[i]; p = nextprime(p+1)); (m); };
v303755 = ordinal_transform(vector(up_to, n, A289625(n)));
A303755(n) = v303755[n];

Crossrefs

Cf. A289625, A289626.

Cf. also A081373, A303756.

Sequence in context: A277367 A239936 A239701 * A321279 A294882 A048220

Adjacent sequences: A303752 A303753 A303754 * A303756 A303757 A303758

Keyword

nonn

Author

Antti Karttunen, Apr 30 2018

Status

approved