A351074 - OEIS

%I #9 Feb 03 2022 16:44:10

%S 0,-1,0,-1,0,-1,0,0,-1,0,0,-1,1,0,0,0,0,0,1,0,1,1,1,0,1,2,0,1,2,-1,1,

%T -4,0,0,0,0,0,0,0,-2,0,0,0,0,0,0,0,-2,0,0,1,0,1,0,2,0,2,2,2,-1,0,0,-1,

%U -4,0,0,0,-1,0,1,0,0,0,0,-1,-1,0,1,1,3,-2,1,1,1,2,2,2,0,2,0,1,2,1,1,1,-3,1,0,0,1,1,1,1,-1,1

%N Difference between the maximal exponent in the prime factorization of A327860(n) and the maximal exponent in the prime factorization of n.

%H Antti Karttunen, <a href="/A351074/b351074.txt">Table of n, a(n) for n = 1..30030</a>

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

%F a(n) = A328391(n) - A051903(n) = A051903(A327860(n)) - A051903(n).

%o (PARI)

%o A051903(n) = if((1==n),0,vecmax(factor(n)[, 2]));

%o A327860(n) = { my(s=0, m=1, p=2, e); while(n, e = (n%p); m *= (p^e); s += (e/p); n = n\p; p = nextprime(1+p)); (s*m); };

%o A351074(n) = (A051903(A327860(n)) - A051903(n));

%Y Cf. A051903, A276086, A327860, A328114, A328391.

%Y Cf. A351075 (positions of negative terms), A351076 (of terms >= 0), A351077 (their characteristic function).

%Y Cf. also A350074.

%K sign,base

%O 1,26

%A _Antti Karttunen_, Feb 01 2022