OFFSET
1,2
LINKS
Michel Marcus, Table of n, a(n) for n = 1..10000
MATHEMATICA
a[n_] := (Times @@ Select[IntegerDigits[n], # > 1 &])^3; Array[a, 55] (* Amiram Eldar, Mar 07 2022 *)
PROG
(PARI) a(n) = vecprod(apply(x->x^3, select(x->(x>1), digits(n))));
(Python)
from math import prod
def a(n): return prod(int(d)**3 for d in str(n) if d != '0')
print([a(n) for n in range(1, 56)]) # Michael S. Branicky, Mar 07 2022
(Python)
from math import prod
def A352172(n): return prod(map(lambda x:(0, 1, 8, 27, 64, 125, 216, 343, 512, 729)[int(x)], filter(lambda x:x>'1', str(n)))) # Chai Wah Wu, Sep 17 2024
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
Michel Marcus, Mar 07 2022
STATUS
approved