|
%I #33 Jan 30 2021 11:39:02
%S 1,2,3,4,4,5,6,6,7,8,8,9,9,10,10,11,12,12,12,13,14,14,15,15,16,16,16,
%T 17,18,18,18,19,20,20,20,21,21,22,22,23,24,24,24,24,25,25,26,26,27,27,
%U 28,28,28,29,30,30,30,30,31,32,32,32,33,33,34,34,35,35,36,36,36,36,36
%N List in which n appears ceiling(d(n)/2) = A038548(n) times, where d(n) is the number of divisors of n.
%C The numbers in A075362 arranged in numerical order.
%H Charles Kusniec, <a href="/A340792/a340792_2.png">Bijection between OEIS sequence A340792 and the positive Triangular Multiplication Table</a>
%F T(n,k) = A161906(n,k) * A340791(n,k).
%e Array begins:
%e 1
%e 2
%e 3
%e 4 4
%e 5
%e 6 6
%e 7
%e 8 8
%e 9 9
%e 10 10
%e 11
%e 12 12 12
%e 13
%e 14 14
%e 15 15
%e 16 16 16
%e 17
%e 18 18 18
%e 19
%e 20 20 20
%e 21 21
%e 22 22
%e 23
%e 24 24 24 24
%o (PARI) row(n) = my(d=divisors(n), r1=select(x->(x<=sqrt(n)), d), r2=Vecrev(select(x->(x>=sqrt(n)), d))); vector(#r1, k, r1[k]*r2[k]); \\ _Michel Marcus_, Jan 22 2021
%Y Cf. A038548 (row lengths), A075362, A161906, A340791, A061017 (comparable array).
%K nonn,tabf
%O 1,2
%A _Charles Kusniec_, Jan 21 2021
|
