%I #11 Nov 13 2021 22:33:24
%S 0,0,0,1,0,4,0,3,2,12,8,39,0,18,12,67,48,214,0,93,62,342,248,1089,0,
%T 468,312,1717,1248,5464,0,5,4,20,16,65,2,30,24,109,90,346,12,155,124,
%U 554,460,1751,62,780,624,2779,2310,8776,312,3905,3124,13904,11560,43901,0,40,32,153,128,492,16,219,178,788,664,2495
%N a(n) = A333791(A276086(n)).
%H Antti Karttunen, <a href="/A348991/b348991.txt">Table of n, a(n) for n = 0..11550</a>
%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>
%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 A332993(n) = if(1==n,n,n + A332993(n/vecmin(factor(n)[,1])));
%o A332994(n) = if(1==n,n,n + A332994(n/vecmax(factor(n)[,1])));
%o A333791(n) = (A332993(n)-A332994(n));
%o A348991(n) = A333791(A276086(n));
%Y Cf. A276086, A332993, A332994, A333791.
%Y Cf. A060735 (gives the positions of other zeros after the initial a(0)=0).
%K nonn,base,look
%O 0,6
%A _Antti Karttunen_, Nov 07 2021