|
|
A062372
|
|
Numbers the product of whose nonzero digits is a cube.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
EXAMPLE
|
142 is a member as 1*4*2 = 8 is a cube. 180 is also a member as 1*8 = 8.
|
|
PROG
|
(PARI) ok(k)={my(d=digits(k)); ispower(prod(i=1, #d, if(d[i], d[i], 1)), 3)} \\ Andrew Howroyd, Jun 29 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Corrected and extended by Larry Reeves (larryr(AT)acm.org), Jul 06 2001
|
|
STATUS
|
approved
|
|
|
|