

A182859


Numbers n such that A036459(n) is even.


8



1, 2, 4, 9, 12, 16, 18, 20, 24, 25, 28, 30, 32, 40, 42, 44, 45, 48, 49, 50, 52, 54, 56, 63, 64, 66, 68, 70, 75, 76, 78, 80, 81, 88, 92, 98, 99, 102, 104, 105, 110, 112, 114, 116, 117, 121, 124, 128, 130, 135, 136, 138, 144, 147, 148, 152, 153, 154, 162, 164, 165, 169, 170
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

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


LINKS

Robert Israel, Table of n, a(n) for n = 1..10000


MAPLE

A036459:= proc(n) option remember;
procname(numtheory:tau(n))+1;
end proc:
A036459(1):= 0: A036459(2):= 0:
select(t > A036459(t)::even, [$1..1000]); # Robert Israel, Aug 31 2015


MATHEMATICA

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 *)


CROSSREFS

Complement of A080218.
Sequence in context: A175041 A298823 A219114 * A341239 A088901 A283147
Adjacent sequences: A182856 A182857 A182858 * A182860 A182861 A182862


KEYWORD

nonn


AUTHOR

Matthew Vandermast, Jan 05 2011


STATUS

approved



