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.
%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