|
%I #9 Oct 28 2019 20:00:46
%S 0,1,0,2,0,2,0,1,0,3,0,3,1,1,0,3,1,3,1,1,0,3,0,3,1,1,0,3,0,3,1,1,0,2,
%T 1,2,1,1,0,4,0,4,1,1,0,4,0,4,1,1,0,4,0,4,1,1,0,4,1,4,1,1,0,2,1,2,1,1,
%U 0,4,0,4,1,2,0,4,0,4,1,1,0,4,0,4,2,2,1,4,0,4,1,1,0,2,0,2,1,1,0,4,0,5,1,1,0,4
%N Number of nonleading zeros in primorial base expansion of A276086(n).
%H Antti Karttunen, <a href="/A328766/b328766.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) = A328620(A276086(n)) = A079067(A276087(n)).
%F a(n) = A001221(A328763(n)) - 1.
%F For all n >= 1, a(A143293(n-1)) = n. [Note however that these are not the first occurrences of each n, that is, A143293 does not give the indices of records]
%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 A328620(n) = { my(s=0, p=2); while(n, s += (0==(n%p)); n = n\p; p = nextprime(1+p)); (s); };
%o A328766(n) = A328620(A276086(n));
%Y Cf. A079067, A143293, A276086, A276087, A328620, A328763.
%Y Cf. also A328578.
%K nonn
%O 0,4
%A _Antti Karttunen_, Oct 28 2019
|
