A328843 - OEIS

%I #6 Nov 01 2019 18:40:08

%S 1,2,3,6,9,6,3,8,9,30,39,30,7,38,39,30,219,240,33,248,249,240,249,240,

%T 247,248,249,2550,2559,2550,7,8,9,36,33,36,33,38,39,210,249,210,37,

%U 248,249,210,249,2520,243,248,2559,2520,2559,2520,2557,2558,2559,2520,32379,32550,37,38,39,246,219,246,243,248,249,210,249,2520,247

%N a(n) = A328841(A276086(n)).

%H Antti Karttunen, <a href="/A328843/b328843.txt">Table of n, a(n) for n = 0..32768</a>

%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>

%F a(n) = A328841(A276086(n)).

%F a(n) = A276086(n) - A328844(n).

%F For all n >= 0, A257993(a(n)) = A328570(n).

%o (PARI)

%o A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };

%o A328841(n) = { my(p=2, r=1, s=0); while(n, s += ((!!(n%p))*r); r *= p; n = n\p; p = nextprime(1+p)); (s); };

%o A328843(n) = A328841(A276086(n));

%Y Cf. A257993, A276086, A328570, A328841, A328844.

%K nonn

%O 0,2

%A _Antti Karttunen_, Oct 30 2019