cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A193509 Number of odd divisors of Omega(n).

This page as a plain text file.
%I A193509 #12 May 13 2013 01:54:20
%S A193509 0,1,1,1,1,1,1,2,1,1,1,2,1,1,1,1,1,2,1,2,1,1,1,1,1,1,2,2,1,2,1,2,1,1,
%T A193509 1,1,1,1,1,1,1,2,1,2,2,1,1,2,1,2,1,2,1,1,1,1,1,1,1,1,1,1,2,2,1,2,1,2,
%U A193509 1,2,1,2,1,1,2,2,1,2,1,2
%N A193509 Number of odd divisors of Omega(n).
%C A193509 Omega(n) is the number of prime divisors of n counted with multiplicity, A001222 (also called bigomega(n)).
%C A193509 Records are at 2^A053624(n). [_Charles R Greathouse IV_, Jul 29 2011]
%H A193509 Charles R Greathouse IV, <a href="/A193509/b193509.txt">Table of n, a(n) for n = 1..10000</a>
%e A193509 a(8) = 2 because Omega(8) = 3 and the 2 odd divisors are {1, 3}.
%t A193509 f[n_] := Block[{d = Divisors[PrimeOmega[n]]}, Count[OddQ[d], True]]; Table[f[n], {n,80}]
%o A193509 (PARI) a(n)=if(n==1,0,my(k=bigomega(n));numdiv(k>>valuation(k,2))) \\ _Charles R Greathouse IV_, Jul 29 2011
%Y A193509 Cf. A001222.
%K A193509 nonn
%O A193509 1,8
%A A193509 _Michel Lagneau_, Jul 29 2011