

A299761


Irregular triangle read by rows: T(n,k), n >= 1, k >= 1, in which row n lists the middle divisors of n, or 0 if there are no middle divisors of n.


18



1, 1, 0, 2, 0, 2, 3, 0, 2, 3, 0, 0, 3, 4, 0, 0, 3, 5, 4, 0, 3, 0, 4, 5, 0, 0, 0, 4, 6, 5, 0, 0, 4, 7, 0, 5, 6, 0, 4, 0, 0, 5, 7, 6, 0, 0, 0, 5, 8, 0, 6, 7, 0, 0, 5, 9, 0, 0, 6, 8, 7, 5, 0, 0, 0, 6, 9, 0, 7, 8, 0, 0, 0, 6, 10, 0, 0, 7, 9, 8, 0, 6, 11, 0, 0, 0, 7, 10, 0, 6, 8, 9, 0, 0, 0, 0, 7, 11, 0, 0, 8, 10
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,4


COMMENTS

The middle divisors of n are the divisors in the halfopen interval [sqrt(n/2), sqrt(n*2)).


LINKS

Michael De Vlieger, Table of n, a(n) for n = 1..14002 (rows 1 <= n <= 10^4)


EXAMPLE

Triangle begins (rows 1..16):
1;
1;
0;
2;
0;
2, 3;
0;
2;
3;
0;
0;
3, 4;
0;
0;
3, 5;
4;
...
For n = 6 the middle divisors of 6 are 2 and 3, so row 6 is [2, 3].
For n = 7 there are no middle divisors of 7, so row 7 is [0].
For n = 8 the middle divisor of 8 is 2, so row 8 is [2].
For n = 72 the middle divisors of 72 are 6, 8 and 9, so row 72 is [6, 8, 9].


MATHEMATICA

Table[Select[Divisors@ n, Sqrt[n/2] <= # < Sqrt[2 n] &] /. {} > {0}, {n, 80}] // Flatten (* Michael De Vlieger, Jun 14 2018 *)


PROG

(PARI) row(n) = my(v=select(x>((x >= sqrt(n/2)) && (x < sqrt(n*2))), divisors(n))); if (#v, v, [0]); \\ Michel Marcus, Aug 04 2022


CROSSREFS

Row sums give A071090.
The number of nonzero terms in row n is A067742(n).
Nonzero terms give A303297.
Indices of the rows where there are zeros give A071561.
Indices of the rows where there are nonzero terms give A071562.
Cf. A027750, A281007, A299777.
Sequence in context: A209689 A204329 A111565 * A141099 A127710 A137510
Adjacent sequences: A299758 A299759 A299760 * A299762 A299763 A299764


KEYWORD

nonn,tabf,look


AUTHOR

Omar E. Pol, Jun 08 2018


STATUS

approved



