cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A235671 Triangle read by rows in which row n lists the proper divisors of n in increasing order, 2n, and the proper divisors of n in decreasing order.

This page as a plain text file.
%I A235671 #28 Jun 22 2015 13:14:50
%S A235671 2,1,4,1,1,6,1,1,2,8,2,1,1,10,1,1,2,3,12,3,2,1,1,14,1,1,2,4,16,4,2,1,
%T A235671 1,3,18,3,1,1,2,5,20,5,2,1,1,22,1,1,2,3,4,6,24,6,4,3,2,1,1,26,1,1,2,7,
%U A235671 28,7,2,1,1,3,5,30,5,3,1,1,2,4,8,32,8,4,2,1
%N A235671 Triangle read by rows in which row n lists the proper divisors of n in increasing order, 2n, and the proper divisors of n in decreasing order.
%C A235671 Numerators of a sequence related to the symmetric structure of sigma, which arises from the structure of A237593. The structure in the first two octants is transformed in a structure in the 6th and 7th octants, which is similar to an isosceles triangle.
%C A235671 Denominators are in A007395.
%C A235671 Row sums give A074400.
%C A235671 Row lengths is A114003 (see the Jovovic's formula in A114003).
%H A235671 Harvey P. Dale, <a href="/A235671/b235671.txt">Table of n, a(n) for n = 1..1000</a>
%e A235671 The irregular triangle begins:
%e A235671 2;
%e A235671 1, 4, 1;
%e A235671 1, 6, 1;
%e A235671 1, 2, 8, 2, 1;
%e A235671 1, 10, 1;
%e A235671 1, 2, 3, 12, 3, 2, 1;
%e A235671 1, 14, 1;
%e A235671 1, 2, 4, 16, 4, 2, 1;
%e A235671 1, 3, 18, 3, 1;
%e A235671 1, 2, 5, 20, 5, 2, 1;
%e A235671 1, 22, 1;
%e A235671 1, 2, 3, 4, 6, 24, 6, 4, 3, 2, 1;
%e A235671 ...
%e A235671 Also:
%e A235671 1;
%e A235671 1/2, 2, 1/2;
%e A235671 1/2, 3, 1/2;
%e A235671 1/2, 1, 4, 1, 1/2;
%e A235671 1/2, 5, 1/2;
%e A235671 1/2, 1, 3/2, 6, 3/2, 1, 1/2;
%e A235671 1/2, 7, 1/2;
%e A235671 1/2, 1, 2, 8, 2, 1, 1/2;
%e A235671 1/2, 3/2, 9, 3/2, 1/2;
%e A235671 1/2, 1, 5/2, 10, 5/2, 1, 1/2;
%e A235671 1/2, 11, 1/2;
%e A235671 1/2, 1, 3/2, 2, 3, 12, 3, 2, 3/2, 1, 1/2;
%e A235671 ...
%t A235671 pd[n_]:=Module[{d=Most[Divisors[n]]},Flatten[Join[{d,{2n},Reverse[d]}]]]; Flatten[Array[pd,20]] (* _Harvey P. Dale_, Dec 22 2014 *)
%Y A235671 Cf. A000005, A001065, A027750, A056538, A074400, A000203, A114002, A114003, A236104, A237591, A237593, A237270, A233772, A233773.
%K A235671 nonn,frac,tabf
%O A235671 1,1
%A A235671 _Omar E. Pol_, Jan 24 2014