|
%I #13 Jan 17 2020 17:40:22
%S 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,2,0,2,0,0,0,0,0,1,4,0,0,0,0,1,0,0,0,0,
%T 2,4,0,0,0,1,0,1,0,0,5,0,0,3,6,8,0,0,0,0,2,0,0,0,0,3,0,0,3,0,1,0,0,0,
%U 0,5,0,2,0,0,3,0,16,0,0,2,1,0,0,2,1,0,0,0,0,10,12,0,0,0,1,6,0,12,2,6,0,0,0,0,3
%N The next more significant digit after A329348(n) in the primorial base expansion of A108951(n).
%H Antti Karttunen, <a href="/A331292/b331292.txt">Table of n, a(n) for n = 1..65537</a>
%H <a href="/index/Pri#prime_indices">Index entries for sequences computed from indices in prime factorization</a>
%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>
%F a(n) = A007949(A246277(A324886(n))).
%F a(n) = A331293(n) modulo A000040(2+A061395(n)).
%o (PARI) A331292(n) = { my(h=A061395(n), u = A108951(n) - (A002110(h)*((A331188(n)%prime(1+h))))); ((u/A002110(1+h))%prime(2+h)); };
%Y Cf. A007949, A061395, A108951, A117366, A151800, A246277, A324886, A329348, A331188,
%Y A331293.
%K nonn
%O 1,16
%A _Antti Karttunen_, Jan 17 2020
|
