OFFSET
0,5
COMMENTS
The formula is analogous to Reinhard Zumkeller's May 09 2011 formula in A003415, with A032742 replaced by A302042. See the comments in the latter sequence.
LINKS
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; };
v078898 = ordinal_transform(vector(up_to, n, A020639(n)));
A078898(n) = v078898[n];
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 31 2018
STATUS
approved