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

Author

Antti Karttunen, Apr 30 2018

Keywords

• nonn

Comments

Equally, ordinal transform of A289626.

Links

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

Crossrefs

Cf. A289625, A289626.

Cf. also A081373, A303756.

Programs

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];