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 A165713 #13 Mar 11 2014 01:32:48
%S A165713 3,4,5,7,10,8,9,11,12,13,14,16,15,18,17,19,20,23,21,22,24,25,26,27,28,
%T A165713 29,33,31,42,32,37,34,35,36,38,41,39,40,44,43,60,47,45,46,48,49,50,53,
%U A165713 51,52,54,59,55,56,57,58,62,61,66,64,63,65,67,68,70,71,69,72,78,73,74
%N A165713 a(n) = the smallest integer > n that is divisible by exactly the same number of distinct primes as n is.
%H A165713 Reinhard Zumkeller, <a href="/A165713/b165713.txt">Table of n, a(n) for n = 2..10000</a>
%e A165713 12 = 2^2 *3, and so is divisible by exactly 2 distinct primes. The next larger number divisible by exactly 2 distinct primes is 14, which is 2*7. So a(12) = 14.
%t A165713 a[n_] := For[nu = PrimeNu[n]; k = n+1, True, k++, If[PrimeNu[k] == nu, Return[k]]]; Table[a[n], {n, 2, 100}] (* _Jean-François Alcover_, Nov 18 2013 *)
%o A165713 (Haskell)
%o A165713 a165713 n = head [x | x <- [n + 1 ..], a001221 x == a001221 n]
%o A165713 -- _Reinhard Zumkeller_, Aug 29 2013
%Y A165713 Cf. A165712, A137929.
%Y A165713 Cf. A001221, A079892.
%K A165713 nonn
%O A165713 2,1
%A A165713 _Leroy Quet_, Sep 24 2009
%E A165713 More terms from _Sean A. Irvine_, Feb 10 2010