

A328619


Inverse permutation of A328618.


4



1, 2, 9, 4, 125, 18, 2401, 8, 3, 250, 1771561, 36, 62748517, 4802, 1125, 16, 118587876497, 6, 6131066257801, 500, 21609, 3543122, 21914624432020321, 72, 5, 125497034, 27, 9604, 8629188747598184440949, 2250, 727423121747185263828481, 32, 15944049, 237175752994, 300125, 12, 624931990990842127748277129373, 12262132515602, 564736653, 1000
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

Antti Karttunen, Table of n, a(n) for n = 1..707
Index entries for sequences that are permutations of the natural numbers


PROG

(PARI) A328619(n) = { my(f = factor(n), m, q); for(k=1, #f~, q = (f[k, 2]\f[k, 1]); m = (f[k, 2]%f[k, 1]); if(m&&(f[k, 1]!=2), f[k, 2] = q*f[k, 1] + lift(Mod(m, f[k, 1])/2))); factorback(f); };


CROSSREFS

Cf. A328617, A328618.
Sequence in context: A210423 A003725 A292952 * A076930 A309926 A011068
Adjacent sequences: A328616 A328617 A328618 * A328620 A328621 A328622


KEYWORD

nonn,mult


AUTHOR

Antti Karttunen, Oct 23 2019


STATUS

approved



