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 A162966 #14 Aug 09 2015 14:59:25
%S A162966 1,4,8,9,12,16,18,20,24,25,27,28,32,36,40,44,45,48,49,50,52,54,56,60,
%T A162966 63,64,68,72,75,76,80,81,84,88,90,92,96,98,99,100,104,108,112,116,117,
%U A162966 120,121,124,125,126,128,132,135,136,140,144,147,148,150,152,153,156,160
%N A162966 Union of 1 and nonsquarefree numbers (A013929).
%C A162966 Or, the natural numbers that are not products of distinct primes. Also, number of prime divisors of n < number of nonprime divisors of n. - _Juri-Stepan Gerasimov_, Nov 10 2009
%t A162966 t = {1}; Do[If[Max[Transpose[FactorInteger[n]][[2]]] > 1, AppendTo[t, n]], {n, 2, 160}]; t (* _Jayanta Basu_, Apr 30 2013 *)
%o A162966 (PARI) is(n)=!issquarefree(n)||n==1 \\ _Charles R Greathouse IV_, Apr 04 2014
%Y A162966 Cf. A013929.
%K A162966 nonn,less
%O A162966 1,2
%A A162966 _Jaroslav Krizek_, Jul 19 2009