cp's OEIS Frontend

A030230 Numbers that have an odd number of distinct prime divisors.

%I A030230 #51 Feb 12 2021 20:57:32
%S A030230 2,3,4,5,7,8,9,11,13,16,17,19,23,25,27,29,30,31,32,37,41,42,43,47,49,
%T A030230 53,59,60,61,64,66,67,70,71,73,78,79,81,83,84,89,90,97,101,102,103,
%U A030230 105,107,109,110,113,114,120,121,125,126,127,128,130,131,132,137,138,139,140,149
%N A030230 Numbers that have an odd number of distinct prime divisors.
%H A030230 T. D. Noe, <a href="/A030230/b030230.txt">Table of n, a(n) for n = 1..1000</a>
%H A030230 Mats Granvik, <a href="http://pastebin.com/FJbdSsW8">Mathematica program to compute the relation to the Dirichlet inverse of the Euler totient function</a>
%H A030230 H. Helfgott and A. Ubis, <a href="https://arxiv.org/abs/1812.08707">Primos, paridad y análisis</a>, arXiv:1812.08707 [math.NT], Dec. 2018.
%F A030230 From _Benoit Cloitre_, Dec 08 2002: (Start)
%F A030230 k such that Sum_{d|k} mu(d)*tau(d) = (-1)^omega(k) = -1 where mu(d) = A008683(d), tau(d) = A000005(d) and omega(d) = A001221(d).
%F A030230 k such that A023900(k) < 0. (End)
%F A030230 gcd(A008472(a(n)), A007947(a(n))) > 1; see A014963. - _Labos Elemer_, Mar 26 2003
%F A030230 A076479(a(n)) = -1. - _Reinhard Zumkeller_, Jun 01 2013
%p A030230 q:= n-> is(nops(ifactors(n)[2])::odd):
%p A030230 select(q, [$1..150])[];  # _Alois P. Heinz_, Feb 12 2021
%t A030230 (* Prior to version 7.0 *) littleOmega[n_] := Length[FactorInteger[n]]; Select[ Range[2, 149], (-1)^littleOmega[#] == -1 &] (* _Jean-François Alcover_, Nov 30 2011, after _Benoit Cloitre_ *)
%t A030230 (* Version 7.0+ *) Select[Range[2, 149], (-1)^PrimeNu[#] == -1 &]
%t A030230 Select[Range[1000],OddQ[PrimeNu[#]]&] (* _Harvey P. Dale_, Nov 27 2012 *)
%o A030230 (Haskell)
%o A030230 a030230 n = a030230_list !! (n-1)
%o A030230 a030230_list = filter (odd . a001221) [1..]
%o A030230 -- _Reinhard Zumkeller_, Aug 14 2011
%o A030230 (PARI) is(n)=omega(n)%2 \\ _Charles R Greathouse IV_, Sep 14 2015
%Y A030230 Cf. A030231, A123066.
%Y A030230 Cf. A008472, A007947, A014963.
%Y A030230 Cf. A076479.
%Y A030230 Cf. A008683, A000005, A001221, A023900.
%K A030230 nonn,easy,nice
%O A030230 1,1
%A A030230 _David W. Wilson_