OFFSET
1,1
COMMENTS
Terms calculated by M. F. Hasler.
First term == 5 (mod 6) is a(385) = 6125. - Jianing Song, Apr 03 2018
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
with(numtheory): a:=proc(n) if tau(2*n)<tau(2*n-1) then 2*n-1 else end if end proc: seq(a(n), n=1..500); # Emeric Deutsch, Mar 12 2008
with(numtheory): a:=proc (n) if `mod`(n, 2)=1 and tau(n+1) < tau(n) then n else end if end proc: seq(a(n), n=1..1000); # Emeric Deutsch, Mar 31 2008
MATHEMATICA
Select[Range[1, 1001, 2], DivisorSigma[0, #]>DivisorSigma[0, #+1]&] (* Harvey P. Dale, Jul 08 2017 *)
PROG
(PARI) isok(n) = (n%2) && (numdiv(n) > numdiv(n+1)); \\ Michel Marcus, Apr 04 2018
(PARI) lista(nn) = forstep(n=1, nn, 2, if(numdiv(n) > numdiv(n+1), print1(n, ", "))); \\ Altug Alkan, Apr 04 2018
(GAP) Filtered([1, 3..1301], n->Tau(n)>Tau(n+1)); # Muniru A Asiru, Apr 05 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Mar 03 2008
STATUS
approved