A193512 a(n) = Sum of odd divisors of Omega(n), a(1) = 0.
0, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 4, 1, 1, 1, 1, 1, 4, 1, 4, 1, 1, 1, 1, 1, 1, 4, 4, 1, 4, 1, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 4, 4, 1, 1, 6, 1, 4, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 4, 1, 4, 1, 4, 1, 4, 1, 6, 1, 1, 4, 4, 1, 4, 1, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 4, 1, 4, 4, 1, 1, 4, 1, 1, 4
Offset: 1
Keywords
Examples
a(8) = 4 because Omega(8) = 3 and the sum of the 2 odd divisors {1, 3} is 4.
Links
Programs
-
Mathematica
Table[Total[Select[Divisors[PrimeOmega[n]], OddQ[ # ]&]], {n, 58}]
-
PARI
A000593(n) = sigma(n>>valuation(n, 2)); \\ This function from Charles R Greathouse IV, Sep 09 2014 A193512(n) = if(1==n,0,A000593(bigomega(n))); \\ Antti Karttunen, Jul 23 2017
Formula
Extensions
Description clarified, more terms from Antti Karttunen, Jul 23 2017
Comments