A225891 Numbers obtained by rotating left the indices in the prime signature of n.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 18, 13, 14, 15, 16, 17, 12, 19, 50, 21, 22, 23, 54, 25, 26, 27, 98, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 250, 41, 42, 43, 242, 75, 46, 47, 162, 49, 20, 51, 338, 53, 24, 55, 686, 57, 58, 59, 150, 61, 62, 147, 64, 65, 66

Offset

1,2

Comments

Inverse permutation to A105119.

A072774 gives the fixed points.

The first term which is different from A105119 is a(60).

The first term which is different from A069799 is a(90).

Links

Paul Tek, Table of n, a(n) for n = 1..10000

Example

a(2250) = a(2*3^2*5^3) = 2^2*3^3*5 = 540.

Mathematica

Table[Times @@ ((ar = Transpose[FactorInteger[n]])[[1]]^RotateLeft[ar[[2]]]), {n, 66}] (* Ivan Neretin, Jul 09 2015 *)

Prog

(PARI) { a(n)=my(f=factor(n), l=#f[, 1]);
return(prod(i=1, l, f[i, 1]^f[if(i==l, 1, i+1), 2])) }

Crossrefs

Cf. A105119, A072774, A069799.

Sequence in context: A072356 A105119 A069799 * A295417 A293448 A085079

Adjacent sequences: A225888 A225889 A225890 * A225892 A225893 A225894

Keyword

nonn

Author

Paul Tek, May 20 2013

Status

approved