A379498 - OEIS

%I #7 Jan 05 2025 22:35:28

%S 2,4,7,12,3,5,13,20,36,75,23,-175,73,105,195,300,123,-500,373,-375,

%T 1035,2175,623,1215,1870,3525,5575,5625,5,-161,19,28,-87,-249,-15,

%U -8680,103,-915,-135,-1995,173,-4025,523,735,1533,1275,873,-9275,2610,4900,7125,14175,4373,8505,12675,25809,37125,78729,47

%N a(n) = A276086(1+n) - A276086(A001065(n)), where A276086 is the primorial base exp-function, and A001065 is the sum of proper divisors of n.

%H Antti Karttunen, <a href="/A379498/b379498.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>.

%H <a href="/index/Si#SIGMAN">Index entries for sequences related to sigma(n)</a>.

%F a(n) = A276086(1+n) - A379493(n).

%F For even n, a(n) = A379494(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 A379498(n) = (A276086(1+n) - A276086(sigma(n)-n));

%Y Cf. A001065, A276086, A379493, A379494.

%Y Cf. also A379496.

%K sign

%O 1,1

%A _Antti Karttunen_, Jan 05 2025