%I A124436
%S A124436 1,2,4,16,1458,2918430506250,
%T A124436 7164640537512654203797788776525821310188011060
%N A124436 a(1)=1, a(n)=p_i^d_i where p_i is i-th prime and d_i is i-th digit of 
               a(n-1).
%C A124436 Or a(n-1)= decimal encoding of the prime factorization of a(n). Cf. A068633 
               Let n = p^a*q^b... then a(n) = concatenation paqb..., A067599 Decimal 
               encoding of the prime factorization of n.
%e A124436 a(4)=16, a(5)=2^1 * 3^6 = 1458;
%e A124436 a(6)= 2^1 * 3^4 * 5^5 * 7^8 = 2918430506250.
%t A124436 a[1]=1;id[n_]:=id[n]=IntegerDigits[a[n-1]]; a[n_]:=a[n]= Times@@Table[Prime[i]^id[n][[i]],
               {i,1,Length[id[n]]}]; {1,Table[a[n],{n,2,7}]}//Flatten
%Y A124436 Cf. A067599, A068633.
%Y A124436 Sequence in context: A114641 A152690 A001128 this_sequence A014221 A048872 
               A105510
%Y A124436 Adjacent sequences: A124433 A124434 A124435 this_sequence A124437 A124438 
               A124439
%K A124436 base,nonn
%O A124436 1,2
%A A124436 Zak Seidov (zakseidov(AT)gmail.com), Dec 16 2006