%I A086354
%S A086354 2,4,8,6,6,8,6,6,1,8,8,2,6,2,2,4,8,2,1,6,2,2,6,8,2,8,2,8,2,2,8,6,6,2,2,
%T A086354 6,2,2,6,8,8,6,3,4,2,2,6,6,2,8,6,2,2,9,8,6,6,5,8,2,8,8,2,6,2,8,8,8,5,8,
%U A086354 8,8,2,8,6,4,8,6,2,7,1,8,8,4,2,8,8,6,2,8,6,2,8,2,8,6,6,6,8,8,6,8,2,8,1
%N A086354 Fixed point if [nonzero-digit product]-function at initial-value=2^n 
               is iterated.
%F A086354 a(n)=A051802[2^n]=fixed-point of A051801[2^n]
%e A086354 n=20, 2^20=1048576, iteration list={1048576,6720,84,32,6},
%e A086354 a(10)=6.
%t A086354 prd[x_] := Apply[Times, DeleteCases[IntegerDigits[x], 0]] Table[FixedPoint[prd, 
               2^w], {w, 1, 128}]
%Y A086354 Cf. A051801, A051802, A086353-A086361, A029898, A010888.
%Y A086354 Sequence in context: A103546 A080868 A046260 this_sequence A014257 A138284 
               A022478
%Y A086354 Adjacent sequences: A086351 A086352 A086353 this_sequence A086355 A086356 
               A086357
%K A086354 base,nonn
%O A086354 1,1
%A A086354 Labos E. (labos(AT)ana.sote.hu), Jul 21 2003