%I A067598
%S A067598 21,36,8277,22987,31199,59577,2092101,25224589,29963201
%N A067598 Decimal encoding of the prime factorization of n is a multiple of n.
%C A067598 If n = p_1^e_1 * ... * p_r^e_r with p_1 < ... < p_r, then the decimal 
               encoding is p_1 e_1...p_r e_r. For example, 15 = 3^1 * 5^1, so has 
               decimal encoding 3151.
%e A067598 The prime factorization of 21 = 3^1 * 7^1 with corresponding encoding 
               3171. 3171 = 21 * 151, a multiple of 21. So 21 is a term of the sequence.
%t A067598 Select[Range[100000], Mod[FromDigits[Flatten[IntegerDigits /@ Flatten[FactorInteger[ 
               # ]]]], # ] ==0 &]
%o A067598 (PARI) {a067598(a,b) = local(n,v); for(n=max(2,a),b,v=factor(n); if(eval(concat(vector(matsize(v)[1],
               k,concat(vector(matsize(v)[2],j,Str(v[k,j]))))))%n==0,print1(n,",
               ")))}
%Y A067598 Sequence in context: A155710 A001491 A112352 this_sequence A043683 A043572 
               A043728
%Y A067598 Adjacent sequences: A067595 A067596 A067597 this_sequence A067599 A067600 
               A067601
%K A067598 base,easy,nonn
%O A067598 1,1
%A A067598 Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Jan 31 2002
%E A067598 Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 02 
               2002
%E A067598 Two more terms from Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), 
               Feb 20 2002