A062372 Numbers the product of whose nonzero digits is a cube.
1, 8, 10, 11, 18, 24, 39, 42, 80, 81, 88, 93, 100, 101, 108, 110, 111, 118, 124, 139, 142, 180, 181, 188, 193, 204, 214, 222, 240, 241, 248, 284, 309, 319, 333, 389, 390, 391, 398, 402, 412, 420, 421, 428, 444, 469, 482, 496, 555, 649, 666, 694, 777, 800, 801
Offset: 1
Examples
142 is a member as 1*4*2 = 8 is a cube. 180 is also a member as 1*8 = 8.
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A062371.
Programs
-
PARI
ok(k)={my(d=digits(k)); ispower(prod(i=1, #d, if(d[i], d[i], 1)), 3)} \\ Andrew Howroyd, Jun 29 2018
Extensions
Corrected and extended by Larry Reeves (larryr(AT)acm.org), Jul 06 2001
Offset changed by Andrew Howroyd, Sep 17 2024
Comments