login
Concatenation of the prime power factors (with maximal exponent) of n; a(1) = 1 by convention.
3

%I #12 Jun 01 2016 02:47:22

%S 1,2,3,4,5,23,7,8,9,25,11,43,13,27,35,16,17,29,19,45,37,211,23,83,25,

%T 213,27,47,29,235,31,32,311,217,57,49,37,219,313,85,41,237,43,411,95,

%U 223,47,163,49,225,317,413,53,227,511,87,319,229,59,435,61,231,97,64

%N Concatenation of the prime power factors (with maximal exponent) of n; a(1) = 1 by convention.

%C a(n) = n iff n is 1 or a prime power; otherwise, a(n) > n. - _Ivan Neretin_, May 31 2016

%H Ivan Neretin, <a href="/A080695/b080695.txt">Table of n, a(n) for n = 1..10000</a>

%e a(67500) = a(2^2*3^3*5^4) = a(4*27*625) = 427625.

%t Table[FromDigits@Flatten@IntegerDigits[#[[1]]^#[[2]] & /@ FactorInteger[n]], {n, 64}] (* _Ivan Neretin_, May 31 2016 *)

%Y Cf. A037276, A067599, A080670, A230305.

%K nonn,base

%O 1,2

%A _Vladeta Jovovic_, Mar 03 2003

%E Edited by _Charles R Greathouse IV_, Apr 29 2010