A342920 a(n) = A342002(A108951(n)).

1, 1, 1, 2, 1, 2, 1, 8, 12, 2, 1, 4, 1, 2, 6, 16, 1, 24, 1, 4, 6, 2, 1, 26, 50, 2, 16, 4, 1, 62, 1, 10, 6, 2, 126, 48, 1, 2, 6, 18, 1, 24, 1, 4, 46, 2, 1, 22, 1486, 100, 6, 4, 1, 32, 94, 8, 6, 2, 1, 54, 1, 2, 72, 20, 264, 12, 1, 4, 6, 120, 1, 376, 1, 2, 1142, 4, 242, 12, 1, 36, 342, 2, 1, 48, 272, 2, 6, 8, 1, 92, 318

Offset: 1

Author

Antti Karttunen, Apr 06 2021

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 1..8192
• Index entries for sequences related to primorial base
• Index entries for sequences related to primorial numbers

Crossrefs

Cf. A108951, A324886, A327860, A328572, A342002, A342463.

Programs

PARI

A034386(n) = prod(i=1, primepi(n), prime(i));
A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A034386(f[i, 1])^f[i, 2]) };
A342920(n) = A342002(A108951(n)); \\ Needs also code from A342002.

Formula

a(n) = A342002(A108951(n)) = A327860(A108951(n)) / A328572(A108951(n)).