A328582 Least common multiple of nonzero digits in primorial base expansion of n.

1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 6, 6, 4, 4, 4, 4, 4, 4, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 6, 6, 4, 4, 4, 4, 4, 4, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 6, 6, 6, 6, 6, 6, 4, 4, 4, 4, 4, 4, 3, 3, 3, 3, 6, 6, 3, 3, 3, 3, 6, 6, 6, 6, 6, 6

Offset: 0

Author

Antti Karttunen, Oct 21 2019

Keywords

• nonn

Comments

a(0) = 1 as an empty product.

Links

• Antti Karttunen, Table of n, a(n) for n = 0..32768
• Index entries for sequences related to lcm's
• Index entries for sequences related to primorial base

Crossrefs

Cf. A072411, A276086, A328581.

Cf. A276156 (positions of 1's).

Programs

PARI

A328582(n) = { my(m=1, p=2); while(n, if(n%p, m = lcm(m,n%p)); n = n\p; p = nextprime(1+p)); (m); };

Formula

a(n) = A072411(A276086(n)).