OFFSET
1,1
COMMENTS
Numbers k such that A051950(k) > 0. - Robert Israel, Aug 03 2014
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000.
EXAMPLE
22 has the same number of divisors as 21 (4 divisors), so 22 is not a term.
63 has 6 divisors, and 62 has only 4, so 63 is a term.
MAPLE
N:= 1000: # to get all entries <= N
L:= map(numtheory:-tau, [$1..N]):
A:= select(t -> L[t] > L[t-1], [$2..N]); # Robert Israel, Aug 03 2014
MATHEMATICA
Flatten[Position[Partition[DivisorSigma[0, Range[200]], 2, 1], _?(#[[1]]< #[[2]]&), {1}, Heads->False]]+1 (* Harvey P. Dale, Feb 08 2015 *)
PROG
(PARI)
for(n=1, 10^3, if(numdiv(n)>numdiv(n-1), print1(n, ", "))) \\ Derek Orr, Aug 02 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
J. Lowell, Aug 02 2014
STATUS
approved