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

Author

Paul Tek, May 20 2013

Keywords

• nonn

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).

Examples

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

Links

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

Crossrefs

Cf. A105119, A072774, A069799.

Programs

Mathematica

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

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])) }