A328844 - OEIS

%I #5 Nov 01 2019 18:40:14

%S 0,0,0,0,0,12,2,2,6,0,6,60,18,12,36,120,6,210,92,2,126,510,876,2010,

%T 378,1002,1626,1200,3066,8700,0,6,12,6,30,90,2,32,66,0,66,420,138,102,

%U 276,840,1326,630,632,1502,66,2730,5316,13230,1818,6192,10566,23730,6996,46200,12,60,108,48,222,636,2,242,486,1260,1956,1890,978,102

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

%H Antti Karttunen, <a href="/A328844/b328844.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) = A328842(A276086(n)).

%F a(n) = A276086(n) - A328843(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 A328842(n) = { my(p=2, r=1, s=0); while(n, if((n%p)>0, s += ((n%p)-1)*r); r *= p; n = n\p; p = nextprime(1+p)); (s); };

%o A328844(n) = A328842(A276086(n));

%Y Cf. A276086, A328842, A328843.

%Y Cf. A328836 (positions of zeros).

%K nonn

%O 0,6

%A _Antti Karttunen_, Oct 30 2019