|
|
A138172
|
|
Even n where d(n) < d(n+1), where d(n) = number of positive divisors of n.
|
|
3
|
|
|
62, 74, 134, 146, 164, 188, 194, 206, 254, 274, 278, 284, 314, 356, 362, 386, 398, 404, 422, 428, 454, 458, 482, 494, 524, 538, 554, 566, 584, 614, 626, 662, 674, 692, 734, 746, 758, 764, 794, 818, 824, 854, 866, 890, 914, 926, 934, 944, 956, 974, 998, 1004, 1028
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
First term == 0 (mod 6) is a(133) = 2274. - Jianing Song, Apr 03 2018
|
|
LINKS
|
|
|
MAPLE
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|