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 A182859 #20 Sep 03 2015 10:29:20
%S A182859 1,2,4,9,12,16,18,20,24,25,28,30,32,40,42,44,45,48,49,50,52,54,56,63,
%T A182859 64,66,68,70,75,76,78,80,81,88,92,98,99,102,104,105,110,112,114,116,
%U A182859 117,121,124,128,130,135,136,138,144,147,148,152,153,154,162,164,165,169,170
%N A182859 Numbers n such that A036459(n) is even.
%C A182859 The sequence is also given by taking the smallest positive integer n such that A000005(n) is not already in the sequence. - _Drake Thomas_, May 05 2015
%H A182859 Robert Israel, <a href="/A182859/b182859.txt">Table of n, a(n) for n = 1..10000</a>
%p A182859 A036459:= proc(n) option remember;
%p A182859 procname(numtheory:-tau(n))+1;
%p A182859 end proc:
%p A182859 A036459(1):= 0: A036459(2):= 0:
%p A182859 select(t -> A036459(t)::even, [$1..1000]); # _Robert Israel_, Aug 31 2015
%t A182859 Position[Table[Length[FixedPointList[DivisorSigma[0, #] &, n]] - 2, {n, 170}], _Integer?EvenQ] // Flatten (* _Michael De Vlieger_, Aug 31 2015, after _Robert G. Wilson v_ at A036459 *)
%Y A182859 Complement of A080218.
%K A182859 nonn
%O A182859 1,2
%A A182859 _Matthew Vandermast_, Jan 05 2011