%I A062372
%S A062372 1,8,10,11,18,24,39,42,80,81,88,93,100,101,108,110,111,118,124,139,142,
%T A062372 180,181,188,193,204,214,222,240,241,248,284,309,319,333,389,390,391,
%U A062372 398,402,412,420,421,428,444,469,482,496,555,649,666,694,777,800,801
%N A062372 Numbers the product of whose nonzero digits is a perfect cube.
%H A062372 Harry J. Smith, <a href="b062372.txt">Table of n, a(n) for n=0,...,1000</
               a>
%e A062372 142 is a member as 1*4*2 =8 is a cube. 180 is also a member as 1*8 = 
               8.
%o A062372 (PARI) ProdNzD(x)= { p=1; while (x>9, d=x-10*(x\10); if (d, p*=d); x\=10); 
               return(p*x) } iscube(x)= { f=factor(x)~; for(i=1, length(f), if (t=f[2, 
               i]%3, return(0))); return(1); } { n=-1; for (m=1, 10^9, if (iscube(ProdNzD(m)), 
               write("b062372.txt", n++, " ", m); if (n==1000, break)) ) } [From 
               Harry J. Smith (hjsmithh(AT)sbcglobal.net), Aug 06 2009]
%Y A062372 Sequence in context: A006757 A126803 A122990 this_sequence A046031 A102758 
               A033872
%Y A062372 Adjacent sequences: A062369 A062370 A062371 this_sequence A062373 A062374 
               A062375
%K A062372 nonn,base,easy
%O A062372 0,2
%A A062372 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jun 26 2001
%E A062372 Corrected and extended by Larry Reeves (larryr(AT)acm.org), Jul 06 2001