A297169 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A297169

Restricted growth sequence transform of a(1) = -1, a(n) = A297168(n) for n > 1.

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

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

OFFSET

1,2

COMMENTS

For all i, j: A300827(i) = A300827(j) => a(i) = a(j). - Antti Karttunen, Mar 13 2018

LINKS

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

Index entries for sequences computed from indices in prime factorization

PROG

(PARI)

allocatemem(2^30);

up_to = 8192;

rgs_transform(invec) = { my(occurrences = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(occurrences, invec[i]), my(pp = mapget(occurrences, invec[i])); outvec[i] = outvec[pp] , mapput(occurrences, invec[i], i); outvec[i] = u; u++ )); outvec; };

write_to_bfile(start_offset, vec, bfilename) = { for(n=1, length(vec), write(bfilename, (n+start_offset)-1, " ", vec[n])); }

A061395(n) = if(1==n, 0, primepi(vecmax(factor(n)[, 1])));

A297167(n) = if(1==n, 0, (A061395(n) + (bigomega(n)-omega(n)) - 1));

A297112(n) = if(1==n, 0, 2^A297167(n));

A297168v1(n) = if(1==n, -1, sumdiv(n, d, (d<n)*A297112(d)));

write_to_bfile(1, rgs_transform(vector(up_to, n, A297168v1(n))), "b297169.txt");

\\ (More efficient PARI program) - Antti Karttunen, Mar 13 2018

CROSSREFS

Cf. A156552, A297112, A297167, A297168, A300827.

Sequence in context: A218702 A363525 A324181 * A353565 A318835 A319353

Adjacent sequences: A297166 A297167 A297168 * A297170 A297171 A297172

KEYWORD

nonn

AUTHOR

Antti Karttunen, Feb 27 2018

STATUS

approved