A365461 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A365461

Sum of digits when A181821(n) is written in primorial base (A049345).

2

1, 1, 2, 1, 2, 2, 4, 1, 2, 4, 2, 2, 4, 4, 4, 1, 6, 6, 6, 4, 8, 4, 6, 2, 2, 8, 6, 2, 12, 6, 16, 1, 6, 10, 4, 6, 16, 10, 8, 4, 10, 6, 10, 4, 12, 10, 6, 2, 8, 6, 10, 8, 12, 10, 8, 8, 20, 10, 18, 2, 26, 14, 8, 1, 12, 12, 22, 10, 20, 12, 28, 6, 28, 14, 10, 10, 6, 8, 34, 4, 8, 18, 38, 4, 10, 14, 20, 6, 52, 10, 12, 10, 24

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

COMMENTS

Minimal number of primorials (A002110) that add to A181821(n).

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..65537

Index entries for sequences computed from indices in prime factorization

Index entries for sequences related to primorial base

FORMULA

a(n) = A276150(A181821(n)).

a(n) = A324888(A122111(n)).

a(n) >= A365460(n).

PROG

(PARI)

A181821(n) = { my(f=factor(n), p=0, m=1); forstep(i=#f~, 1, -1, while(f[i, 2], f[i, 2]--; m *= (p=nextprime(p+1))^primepi(f[i, 1]))); (m); };

A276150(n) = { my(s=0, p=2, d); while(n, d = (n%p); s += d; n = (n-d)/p; p = nextprime(1+p)); (s); };

A365461(n) = A276150(A181821(n));

CROSSREFS

Cf. A002110, A049345, A122111, A181821, A276150, A324888, A365460.

Sequence in context: A151681 A336138 A366600 * A131097 A218666 A062790

Adjacent sequences: A365458 A365459 A365460 * A365462 A365463 A365464

KEYWORD

nonn

AUTHOR

Antti Karttunen, Sep 15 2023

STATUS

approved