%I A080670
%S A080670 1,2,3,22,5,23,7,23,32,25,11,223,13,27,35,24,17,232,19,225,37,211,23,
%T A080670 233,52,213,33,227,29,235,31,25,311,217,57,2232,37,219,313,235,41,237,
%U A080670 43,2211,325,223,47,243,72,252,317,2213,53,233,511,237,319,229,59,2235
%N A080670 Literal reading of the prime factorization of n.
%C A080670 Exponents equal to 1 are omitted and therefore A080670 differs from A067599.
%e A080670 8=2^3, which reads 23, hence a(8)=23; 12=2^2.3, which reads 223, hence 
               a(12)=223
%t A080670 f[n_] := Block[{p = Flatten[ FactorInteger[n]]}, k = Length[p]; While[k 
               > 0, If[ p[[k]] == 1, p = Delete[p, k]]; k-- ]; FromDigits[ Flatten[ 
               IntegerDigits[p]]]]; Table[ f[n], {n, 2, 60}]
%Y A080670 Cf. A037276, A067599.
%Y A080670 Sequence in context: A090122 A114749 A141458 this_sequence A073647 A073646 
               A109671
%Y A080670 Adjacent sequences: A080667 A080668 A080669 this_sequence A080671 A080672 
               A080673
%K A080670 nonn,base
%O A080670 1,2
%A A080670 Jon Perry (perry(AT)globalnet.co.uk), Mar 02 2003
%E A080670 Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 02 
               2003