1,2

a(n) = product(A054055(A027746(n,k)): k=1..A001222(n));

a(n) <= n;

a(m) = m iff m is 7-smooth: a(A002473(n)) = A002473(n) and a(A068191(n)) < A068191(n);

A006530(a(n)) <= 7;

a(a(n)) = a(n).

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Multiplicative with p -> A054055(p), p prime.

(Haskell)

a262401 = product . map a054055 . a027746_row'

Cf. A054055, A027746, A001222, A002473, A006530, A060418, A068191.

Sequence in context: A067453 A203814 A280505 * A118541 A084905 A180409

Adjacent sequences: A262398 A262399 A262400 * A262402 A262403 A262404

nonn,base,mult

Reinhard Zumkeller, Sep 25 2015

approved