A322315 - OEIS

A322315

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

1, 2, 1, 3, 1, 4, 1, 5, 1, 6, 1, 7, 1, 2, 1, 8, 1, 9, 1, 10, 1, 11, 1, 12, 1, 2, 1, 13, 1, 14, 1, 15, 1, 2, 1, 16, 1, 2, 1, 17, 1, 18, 1, 19, 1, 20, 1, 21, 1, 6, 1, 22, 1, 23, 1, 24, 1, 25, 1, 26, 1, 2, 1, 27, 1, 28, 1, 3, 1, 29, 1, 30, 1, 2, 1, 3, 1, 31, 1, 32, 1, 33, 1, 34, 1, 2, 1, 35, 1, 36, 1, 37, 1, 2, 1, 38, 1, 2, 1, 39, 1, 40, 1, 41, 1

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

Restricted growth sequence transform of A185633.

For all i, j: a(i) = a(j) => A322313(i) = A322313(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; };

A185633(n) = { my(m=1); fordiv(n, d, if(isprime(1+d), m *= (1+d)^(1+valuation(n, 1+d)))); (m); };

v322315 = rgs_transform(vector(up_to, n, A185633(n)));

A322315(n) = v322315[n];

CROSSREFS

Cf. A185633, A322313.

Sequence in context: A364449 A228179 A322313 * A375038 A319338 A177815

Adjacent sequences: A322312 A322313 A322314 * A322316 A322317 A322318

KEYWORD

nonn

AUTHOR

Antti Karttunen, Dec 03 2018

STATUS

approved