

A225891


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


5



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



