A328619 Inverse permutation to A328618.

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

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 * A365108 A076930 A309926

Adjacent sequences: A328616 A328617 A328618 * A328620 A328621 A328622

Keyword

nonn,mult

Author

Antti Karttunen, Oct 23 2019

Status

approved