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 A331050 #5 Jan 11 2020 15:27:20 %S A331050 1,2,3,5,7,8,11,13,16,17,19,23,24,27,29,30,31,32,36,37,40,41,42,43,47, %T A331050 53,54,56,59,60,61,64,66,67,70,71,73,78,79,81,83,84,88,89,90,96,97, %U A331050 100,101,102,103,104,105,107,109,110,113,114,120,125,126,127,128 %N A331050 Positive integers whose number of factorizations into factors > 1 (A001055) is odd. %C A331050 First differs from A319239 in lacking 256. %t A331050 facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]]; %t A331050 Select[Range[100],OddQ[Length[facs[#]]]&] %Y A331050 Complement of A331051. %Y A331050 The version for powers of two (instead of odds) is A330977. %Y A331050 The version for primes (instead of odds) is A330991. %Y A331050 Cf. A001055, A001221, A001222, A002033, A005117, A045778, A045782, A045783, A330972, A330973. %K A331050 nonn %O A331050 1,2 %A A331050 _Gus Wiseman_, Jan 10 2020