OFFSET
1,1
COMMENTS
Terms calculated by M. F. Hasler.
First term == 0 (mod 6) is a(133) = 2274. - Jianing Song, Apr 03 2018
LINKS
Jianing Song and Muniru A Asiru, Table of n, a(n) for n = 1..10000(Terms 1 through 1019 from Jianing Song)
MAPLE
with(numtheory): A138172:=n->`if`(n mod 2 = 0 and tau(n) < tau(n+1), n, NULL): seq(A138172(n), n=1..1000); # Wesley Ivan Hurt, Apr 10 2015
MATHEMATICA
2 Position[Partition[Array[DivisorSigma[0, #] &, 10^3, 2], 2, 2], _?(#1 < #2 & @@ # &)][[All, 1]] (* Michael De Vlieger, Apr 07 2018 *)
PROG
(PARI) lista(nn) = {forstep(n=2, nn, 2, if (numdiv(n) < numdiv(n+1), print1(n, ", ")); ); } \\ Michel Marcus, Apr 10 2015
(GAP) Filtered([2, 4..1300], n->Tau(n)<Tau(n+1)); # Muniru A Asiru, Apr 05 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Mar 03 2008
STATUS
approved