%I A128244
%S A128244 1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,0,2,3,4,5,6,7,8,9,0,1,3,4,5,6,7,8,
%T A128244 9,0,1,2,4,5,6,7,8,9,0,1,2,3,5,6,7,8,9,0,1,2,3,4,6,7,8,9,0,1,2,3,4,5,7,
%U A128244 8,9,0,1,2,3,4,5,6,8,9,0,1,2,3,4,5,6,7,9,0,1,2,3,4,5,6,7,8,1,2,3,4,5,6
%N A128244 Let be s the sum of the digits of n; a(n) is the product of the digits 
               of s.
%C A128244 The sequence is equal to A053837 up to the 488th term.
%e A128244 a(345)=2 because 3+4+5=12 and 1*2=2
%p A128244 P:=proc(n) local i,k,w; for i from 1 by 1 to n do w:=0; k:=i; while k>
               0 do w:=w+k-(trunc(k/10)*10); k:=trunc(k/10); od; k:=w; w:=1; while 
               k>0 do w:=w*(k-(trunc(k/10)*10)); k:=trunc(k/10); od; print(w); od; 
               end: P(500);
%Y A128244 Cf. A053837.
%Y A128244 Sequence in context: A071650 A037265 A053837 this_sequence A010888 A131650 
               A033930
%Y A128244 Adjacent sequences: A128241 A128242 A128243 this_sequence A128245 A128246 
               A128247
%K A128244 easy,nonn,base
%O A128244 0,2
%A A128244 Paolo P. Lava & Giorgio Balzarotti (ppl(AT)spl.at), May 03 2007