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.

Showing 1-10 of 15 results. Next

A249351 Triangle read by rows in which row n lists the widths of the symmetric representation of sigma(n).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1
Offset: 1

Views

Author

Omar E. Pol, Oct 26 2014

Keywords

Comments

Here T(n,k) is defined to be the "k-th width" of the symmetric representation of sigma(n), with n>=1 and 1<=k<=2n-1. Explanation: consider the diagram of the symmetric representation of sigma(n) described in A236104, A237593 and other related sequences. Imagine that the diagram for sigma(n) contains 2n-1 equidistant segments which are parallel to the main diagonal [(0,0),(n,n)] of the quadrant. The segments are located on the diagonal of the cells. The distance between two parallel segment is equal to sqrt(2)/2. T(n,k) is the length of the k-th segment divided by sqrt(2). Note that the triangle contains nonnegative terms because for some n the value of some widths is equal to zero. For an illustration of some widths see Hartmut F. W. Hoft's contribution in the Links section of A237270.
Row n has length 2*n-1.
Row sums give A000203.
If n is a power of 2 then all terms of row n are 1's.
If n is an even perfect number then all terms of row n are 1's except the middle term which is 2.
If n is an odd prime then row n lists (n+1)/2 1's, n-2 zeros, (n+1)/2 1's.
The number of blocks of positive terms in row n gives A237271(n).
The sum of the k-th block of positive terms in row n gives A237270(n,k).
It appears that the middle diagonal is also A067742 (which was conjectured by Michel Marcus in the entry A237593 and checked with two Mathematica functions up to n = 100000 by Hartmut F. W. Hoft).
It appears that the trapezoidal numbers (A165513) are also the numbers k > 1 with the property that some of the noncentral widths of the symmetric representation of sigma(k) are not equal to 1. - Omar E. Pol, Mar 04 2023

Examples

			Triangle begins:
  1;
  1,1,1;
  1,1,0,1,1;
  1,1,1,1,1,1,1;
  1,1,1,0,0,0,1,1,1;
  1,1,1,1,1,2,1,1,1,1,1;
  1,1,1,1,0,0,0,0,0,1,1,1,1;
  1,1,1,1,1,1,1,1,1,1,1,1,1,1,1;
  1,1,1,1,1,0,0,1,1,1,0,0,1,1,1,1,1;
  1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1;
  1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1;
  1,1,1,1,1,1,1,1,1,2,2,2,2,2,1,1,1,1,1,1,1,1,1;
  ...
---------------------------------------------------------------------------
.        Written as an isosceles triangle              Diagram of
.              the sequence begins:               the symmetry of sigma
---------------------------------------------------------------------------
.                                                _ _ _ _ _ _ _ _ _ _ _ _
.                      1;                       |_| | | | | | | | | | | |
.                    1,1,1;                     |_ _|_| | | | | | | | | |
.                  1,1,0,1,1;                   |_ _|  _|_| | | | | | | |
.                1,1,1,1,1,1,1;                 |_ _ _|    _|_| | | | | |
.              1,1,1,0,0,0,1,1,1;               |_ _ _|  _|  _ _|_| | | |
.            1,1,1,1,1,2,1,1,1,1,1;             |_ _ _ _|  _| |  _ _|_| |
.          1,1,1,1,0,0,0,0,0,1,1,1,1;           |_ _ _ _| |_ _|_|    _ _|
.        1,1,1,1,1,1,1,1,1,1,1,1,1,1,1;         |_ _ _ _ _|  _|     |
.      1,1,1,1,1,0,0,1,1,1,0,0,1,1,1,1,1;       |_ _ _ _ _| |      _|
.    1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1;     |_ _ _ _ _ _|  _ _|
.  1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1;   |_ _ _ _ _ _| |
.1,1,1,1,1,1,1,1,1,2,2,2,2,2,1,1,1,1,1,1,1,1,1; |_ _ _ _ _ _ _|
...
From _Omar E. Pol_, Nov 22 2020: (Start)
Also consider the infinite double-staircases diagram defined in A335616.
For n = 15 the diagram with first 15 levels looks like this:
.
Level                         "Double-staircases" diagram
.                                          _
1                                        _|1|_
2                                      _|1 _ 1|_
3                                    _|1  |1|  1|_
4                                  _|1   _| |_   1|_
5                                _|1    |1 _ 1|    1|_
6                              _|1     _| |1| |_     1|_
7                            _|1      |1  | |  1|      1|_
8                          _|1       _|  _| |_  |_       1|_
9                        _|1        |1  |1 _ 1|  1|        1|_
10                     _|1         _|   | |1| |   |_         1|_
11                   _|1          |1   _| | | |_   1|          1|_
12                 _|1           _|   |1  | |  1|   |_           1|_
13               _|1            |1    |  _| |_  |    1|            1|_
14             _|1             _|    _| |1 _ 1| |_    |_             1|_
15            |1              |1    |1  | |1| |  1|    1|              1|
.
Starting from A196020 and after the algorithm described in A280850 and A296508 applied to the above diagram we have a new diagram as shown below:
.
Level                             "Ziggurat" diagram
.                                          _
6                                         |1|
7                            _            | |            _
8                          _|1|          _| |_          |1|_
9                        _|1  |         |1   1|         |  1|_
10                     _|1    |         |     |         |    1|_
11                   _|1      |        _|     |_        |      1|_
12                 _|1        |       |1       1|       |        1|_
13               _|1          |       |         |       |          1|_
14             _|1            |      _|    _    |_      |            1|_
15            |1              |     |1    |1|    1|     |              1|
.
The 15th row
of this seq:  [1,1,1,1,1,1,1,1,0,0,0,1,1,1,2,1,1,1,0,0,0,1,1,1,1,1,1,1,1]
The 15th row
of A237270:   [              8,            8,            8              ]
The 15th row
of A296508:   [              8,      7,    1,    0,      8              ]
The 15th row
of A280851    [              8,      7,    1,            8              ]
.
The number of horizontal steps (or 1's) in the successive columns of the above diagram gives the 15th row of this triangle.
For more information about the parts of the symmetric representation of sigma(n) see A237270. For more information about the subparts see A239387, A296508, A280851.
More generally, it appears there is the same correspondence between the original diagram of the symmetric representation of sigma(n) and the "Ziggurat" diagram of n. (End)
		

Crossrefs

Programs

  • Mathematica
    (* function segments are defined in A237270 *)
    a249351[n_] := Flatten[Map[segments, Range[n]]]
    a249351[10] (* Hartmut F. W. Hoft, Jul 20 2022 *)

A250068 Maximum width of any region in the symmetric representation of sigma(n).

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 3, 1, 1, 2, 1, 1, 2, 1, 1, 1, 2, 1, 3, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 3, 2, 1, 1, 1, 1, 2, 1, 1, 2, 2
Offset: 1

Views

Author

Hartmut F. W. Hoft, Nov 11 2014

Keywords

Comments

Since the width of the single region of the symmetric representation of sigma( 2^ceiling((p-1)*(log_2 3) - 1) * 3^(p-1) ), for prime number p, at the diagonal equals p, this sequence contains an increasing subsequence (see A250071).
a(n) is also the number of layers of width 1 in the symmetric representation of sigma(n). For more information see A001227. - Omar E. Pol, Dec 13 2016

Examples

			a(6) = 2 since the sequence of widths at each unit step in the symmetric representation of sigma(6) = 12 is 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1. For visual examples see A237270, A237593 and sequences referenced in these.
		

Crossrefs

Programs

  • Mathematica
    (* function a2[ ] is defined in A249223 *)
    a250068[n_]:=Max[a2[n]]
    a250068[{m_,n_}]:=Map[a250068,Range[m,n]]
    a250068[{1,100}](* data *)
  • PARI
    t237048(n,k) = if (k % 2, (n % k) == 0, ((n - k/2) % k) == 0);
    kmax(n) = (sqrt(1+8*n)-1)/2;
    t249223(n,k) = sum(j=1, k, (-1)^(j+1)*t237048(n,j));
    a(n) = my(wm = t249223(n, 1)); for (k=2, kmax(n), wm = max(wm, t249223(n, k))); wm; \\ Michel Marcus, Sep 20 2015

Formula

a(n) = max_{k=1..floor((sqrt(8*n+1) - 1)/2)} (Sum_{j=1..k}(-1)^(j+1)*A237048(n, j)), for n >= 1.

A250070 Smallest number k such that the symmetric representation of sigma(k) has at least one part of width n.

Original entry on oeis.org

1, 6, 60, 120, 360, 840, 3360, 2520, 5040, 10080, 15120, 32760, 27720, 50400, 98280, 83160, 110880, 138600, 221760, 277200, 332640, 360360, 554400, 960960, 831600, 942480, 720720, 2217600, 1965600, 1441440, 3160080, 2827440, 2162160, 2882880, 3603600, 5765760, 5654880, 4324320, 9979200
Offset: 1

Views

Author

Hartmut F. W. Hoft, Nov 11 2014

Keywords

Comments

The 26 entries starting with a(2) = 6 are products of powers of consecutive primes starting with 2, except for a(12) = 32760 and a(15) = 98280 (which are missing 11), and a(26) = 942480 (which is missing 13).
a(n) is the smallest number k such that the symmetric representation of sigma(k) has n layers. For more information see A279387. - Omar E. Pol, Dec 16 2016
Row 1 of A253258. - Omar E. Pol, Apr 15 2018
From Hartmut F. W. Hoft, Jun 10 2024: (Start)
All terms a(n) <= 1.75*10^7 have a symmetric representation of sigma that consists of a single part and they are abundant for n > 2. Numbers a(1) = 1, a(2) = 6, and a(4) = 120 are unimodal while numbers a(6) = 840, a(14) = 50400, a(18) = 138600, a(24) = 960960, a(26) = 942480, a(32) = 2827440, a(44) = 8648640 have a single extent of maximum width, but are not unimodal.
Conjecture: The symmetric representation of sigma for every term consists of a single part and it is unimodal only for a(1), a(2), and a(4).
As a consequence, this sequence would be a subsequence of A174973, and all a(n), n > 2, would be abundant. (End)

Examples

			a(3) = 60 since the symmetric representation of sigma(60) = 168 consists of a single region of whose successive widths are 41 1's, 9 2's, 6 3's, 7 2's, 6 3's, 9 2's, and 41 1's.
a(6) = 840 has a single extent of 12 units of width 6 centered around point (583,583) on the diagonal, but is not unimodal. - _Hartmut F. W. Hoft_, Jun 10 2024
		

Crossrefs

Programs

  • Mathematica
    (* function a2[ ] is defined in A249223 *)
    a250070[{j_, k_}, b_] := Module[{i, max, acc={{1, 1}}}, For[i=j, i<=k, i++, max={Max[a2[i]], i}; If[max[[1]]>b && !MemberQ[Transpose[acc][[1]], max[[1]]], AppendTo[acc,max]]]; acc]
    (* returns (argument,result) data pairs since sequence is non-monotonic *)
    Sort[a250070[{1, 1000000}, 1]] (* computed in steps *)

Formula

a(n) = min(k such that A250068(k) = n), n >= 1.

Extensions

a(28)-a(48) from Hartmut F. W. Hoft, Jun 10 2024

A241008 Numbers n with the property that the number of parts in the symmetric representation of sigma(n) is even, and that all parts have width 1.

Original entry on oeis.org

3, 5, 7, 10, 11, 13, 14, 17, 19, 21, 22, 23, 26, 27, 29, 31, 33, 34, 37, 38, 39, 41, 43, 44, 46, 47, 51, 52, 53, 55, 57, 58, 59, 61, 62, 65, 67, 68, 69, 71, 73, 74, 76, 79, 82, 83, 85, 86, 87, 89, 92, 93, 94, 95, 97
Offset: 1

Views

Author

Hartmut F. W. Hoft, Aug 07 2014

Keywords

Comments

The first eight entries in A071561 but not in this sequence are 75, 78, 102, 105, 114, 138, 174 & 175.
The first eight entries in A239929 but not in this sequence are 21, 27, 33, 39, 51, 55, 57 & 65.
The union of this sequence and A241010 equals A174905 (see link in A174905 for a proof). Updated by Hartmut F. W. Hoft, Jul 02 2015
Let n = 2^m * Product_{i=1..k} p_i^e_i = 2^m * q with m >= 0, k >= 0, 2 < p_1 < ... < p_k primes and e_i >= 1, for all 1 <= i <= k. For each number n in this sequence k > 0, at least one e_i is odd, and for any two odd divisors f < g of n, 2^(m+1) * f < g. Let the odd divisors of n be 1 = d_1 < ... < d_2x = q where 2x = sigma_0(q). The z-th region of the symmetric spectrum of n has area a_z = 1/2 * (2^(m+1) - 1) *(d_z + d_(2x+1-z)), for 1 <= z <= 2x. Therefore, the sum of the area of the regions equals sigma(n). For a proof see Theorem 6 in the link of A071561. - Hartmut F. W. Hoft, Sep 09 2015, Sep 04 2018
First differs from A071561 at a(43). - Omar E. Pol, Oct 06 2018

Crossrefs

Programs

  • Mathematica
    (* path[n] and a237270[n] are defined in A237270 *)
    atmostOneDiagonalsQ[n_] := SubsetQ[{0, 1}, Union[Flatten[Drop[Drop[path[n], 1], -1] - path[n-1], 1]]]
    Select[Range[100], atmostOneDiagonalsQ[#] && EvenQ[Length[a237270[#]]]&] (* data *)

A246955 Numbers j for which the symmetric representation of sigma(j) has two parts, each of width one.

Original entry on oeis.org

3, 5, 7, 10, 11, 13, 14, 17, 19, 22, 23, 26, 29, 31, 34, 37, 38, 41, 43, 44, 46, 47, 52, 53, 58, 59, 61, 62, 67, 68, 71, 73, 74, 76, 79, 82, 83, 86, 89, 92, 94, 97, 101, 103, 106, 107, 109, 113, 116, 118, 122, 124, 127, 131, 134, 136, 137, 139, 142, 146, 148, 149, 151, 152, 157, 158, 163, 164, 166, 167, 172, 173, 178, 179, 181, 184, 188, 191, 193, 194, 197, 199
Offset: 1

Views

Author

Hartmut F. W. Hoft, Sep 08 2014

Keywords

Comments

The sequence is the intersection of A239929 (sigma(j) has two parts) and of A241008 (sigma(j) has an even number of parts of width one).
The numbers in the sequence are precisely those defined by the formula for the triangle, see the link. The symmetric representation of sigma(j) has two parts, each part having width one, precisely when j = 2^(k - 1) * p where 2^k <= row(j) < p, p is prime and row(j) = floor((sqrt(8*j + 1) - 1)/2). Therefore, the sequence can be written naturally as a triangle as shown in the Example section.
The symmetric representation of sigma(j) = 2*j - 2 consists of two regions of width 1 that meet on the diagonal precisely when j = 2^(2^m - 1)*(2^(2^m) + 1) where 2^(2^m) + 1 is a Fermat prime (see A019434). This subsequence of numbers j is 3, 10, 136, 32896, 2147516416, ...[?]... (A191363).
The k-th column of the triangle starts in the row whose initial entry is the first prime larger than 2^(k+1) (that sequence of primes is A014210, except for 2).
Observation: at least the first 82 terms coincide with the numbers j with no middle divisors whose largest divisor <= sqrt(j) is a power of 2, or in other words, coincide with the intersection of A071561 and A365406. - Omar E. Pol, Oct 11 2023

Examples

			We show portions of the first eight columns, 0 <= k <= 7, of the triangle.
0    1    2     3     4     5     6     7
3
5    10
7    14
11   22   44
13   26   52
17   34   68    136
19   38   76    152
23   46   92    184
29   58   116   232
31   62   124   248
37   74   148   296   592
41   82   164   328   656
43   86   172   344   688
47   94   188   376   752
53   106  212   424   848
59   118  236   472   944
61   122  244   488   976
67   134  268   536   1072  2144
71   142  284   568   1136  2272
.    .    .     .     .     .
.    .    .     .     .     .
127  254  508   1016  2032  4064
131  262  524   1048  2096  4192  8384
137  274  548   1096  2192  4384  8768
.    .    .     .     .     .     .
.    .    .     .     .     .     .
251  502  1004  2008  4016  8032  16064
257  514  1028  2056  4112  8224  16448  32896
263  526  1052  2104  4208  8416  16832  33664
Since 2^(2^4) + 1 = 65537 is the 6543rd prime, column k = 15 starts with 2^15*(2^(2^16) + 1) = 2147516416 in row 6542 with 65537 in column k = 0.
For an image of the symmetric representations of sigma(m) for all values m <= 137 in the triangle see the link.
The first column is the sequence of odd primes, see A065091.
The second column is the sequence of twice the primes starting with 10, see A001747.
The third column is the sequence of four times the primes starting with 44, see A001749.
For related references also see A033676 (largest divisor of n less than or equal to sqrt(n)).
		

Crossrefs

Programs

  • Mathematica
    (* functions path[] and a237270[ ] are defined in A237270 *)
    atmostOneDiagonalsQ[n_]:=SubsetQ[{0, 1}, Union[Flatten[Drop[Drop[path[n], 1], - 1] - path[n - 1], 1]]]
    (* data *)
    Select[Range[200], Length[a237270[#]]==2 && atmostOneDiagonalsQ[#]&]
    (* function for computing triangle in the Example section through row 55 *)
    TableForm[Table[2^k Prime[n], {n, 2, 56}, {k, 0, Floor[Log[2, Prime[n]] - 1]}], TableDepth->2]

Formula

Formula for the triangle of numbers associated with the sequence:
P(n, k) = 2^k * prime(n) where n >= 2, 0 <= k <= floor(log_2(prime(n)) - 1).

A174905 Numbers with no pair (d,e) of divisors such that d < e < 2*d.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 16, 17, 19, 21, 22, 23, 25, 26, 27, 29, 31, 32, 33, 34, 37, 38, 39, 41, 43, 44, 46, 47, 49, 50, 51, 52, 53, 55, 57, 58, 59, 61, 62, 64, 65, 67, 68, 69, 71, 73, 74, 76, 79, 81, 82, 83, 85, 86, 87, 89, 92, 93, 94, 95, 97, 98, 101, 103, 106
Offset: 1

Views

Author

Reinhard Zumkeller, Apr 01 2010

Keywords

Comments

A174903(a(n)) = 0; complement of A005279;
sequences of powers of primes are subsequences;
a(n) = A129511(n) for n < 27, A129511(27) = 35 whereas a(27) = 37.
Also the union of A241008 and A241010 (see the link for a proof). - Hartmut F. W. Hoft, Jul 02 2015
In other words: numbers n with the property that all parts in the symmetric representation of sigma(n) have width 1. - Omar E. Pol, Dec 08 2016
Sequence A357581 shows the numbers organized in columns of a square array by the number of parts in their symmetric representation of sigma. - Hartmut F. W. Hoft, Oct 04 2022

Crossrefs

Programs

  • Haskell
    a174905 n = a174905_list !! (n-1)
    a174905_list = filter ((== 0) . a174903) [1..]
    -- Reinhard Zumkeller, Sep 29 2014
  • Maple
    filter:= proc(n)
      local d,q;
       d:= numtheory:-divisors(n);
       min(seq(d[i+1]/d[i],i=1..nops(d)-1)) >= 2
    end proc:
    select(filter, [$1..1000]); # Robert Israel, Aug 08 2014
  • Mathematica
    (* it suffices to test adjacent divisors *)
    a174905[n_] := Module[{d = Divisors[n]}, ! Apply[Or, Map[2 #[[1]] > #[[2]] &, Transpose[{Drop[d, -1], Drop[d, 1]}]]]]
    (* Hartmut F. W. Hoft, Aug 07 2014 *)
    Select[Range[106], !MatchQ[Divisors[#], {_, d_, e_, _} /; e < 2d]& ] (* Jean-François Alcover, Jan 31 2018 *)

A247687 Numbers m with the property that the symmetric representation of sigma(m) has three parts of width one.

Original entry on oeis.org

9, 25, 49, 50, 98, 121, 169, 242, 289, 338, 361, 484, 529, 578, 676, 722, 841, 961, 1058, 1156, 1369, 1444, 1681, 1682, 1849, 1922, 2116, 2209, 2312, 2738, 2809, 2888, 3362, 3364, 3481, 3698, 3721, 3844, 4232, 4418, 4489, 5041, 5329, 5476, 5618, 6241, 6724, 6728, 6889, 6962, 7396, 7442, 7688, 7921, 8836, 8978, 9409
Offset: 1

Views

Author

Hartmut F. W. Hoft, Sep 22 2014

Keywords

Comments

The symmetric representation of sigma(m) has 3 regions of width 1 where the two extremal regions each have 2^k - 1 legs and the central region starts with the p-th leg of the associated Dyck path for sigma(m) precisely when m = 2^(k - 1) * p^2 where 2^k < p <= row(m), k >= 1, p >= 3 is prime and row(m) = floor((sqrt(8*m + 1) - 1)/2). Furthermore, the areas of the two outer regions are (2^k - 1)*(p^2 + 1)/2 each so that the area of the central region is (2^k - 1)*p; for a proof see the link.
Since the sequence is defined by a two-parameter expression it can be written naturally as a triangle as shown in the Example section.
A263951 is a subsequence of this sequence containing the squares of all those primes p for which the areas of the 3 regions in the symmetric representation of p^2 (p once and (p^2 + 1)/2 twice) are primes; i.e., p^2 and p^2 + 1 are semiprimes (see A070552). - Hartmut F. W. Hoft, Aug 06 2020

Examples

			We show portions of the first eight columns, powers of two 0 <= k <= 7, and 55 rows of the triangle through prime(56) = 263.
p/k     0       1       2       3       4       5       6       7
3       9
5       25      50
7       49      98
11      121     242     484
13      169     338     676
17      289     578     1156    2312
19      361     722     1444    2888
23      529     1058    2116    4232
29      841     1682    3364    6728
31      961     1922    3844    7688
37      1369    2738    5476    10952   21904
41      1681    3362    6724    13448   26896
43      1849    3698    7396    14792   29584
47      2209    4418    8836    17672   35344
53      2809    5618    11236   22472   44944
59      3481    6962    13924   27848   55696
61      3721    7442    14884   29768   59536
67      4489    8978    17956   35912   71824   143648
71      5041    10082   20164   40328   80656   161312
.       .       .       .       .       .       .
.       .       .       .       .       .       .
131     17161   34322   68644   137288  274567  549152  1098304
137     18769   37538   75076   150152  300304  600608  1201216
.       .       .       .       .       .       .       .
.       .       .       .       .       .       .       .
257     66049   132098  264196  528392  1056784 2113568 4227136 8454272
263     69169   138338  276676  553352  1106704 2213408 4426816 8853632
Number 4 is not in this sequence since the symmetric representation of sigma(4) consists of a single region. Column k=0 contains the squares of primes (A001248(n), n>=2), column k=1 contains double the squares of primes (A079704(n), n>=2) and column k=2 contains four times the squares of primes (A069262(n), n>=5).
		

Crossrefs

Programs

  • Mathematica
    (* path[n] and a237270[n] are defined in A237270 *)
    atmostOneDiagonalsQ[n_] := SubsetQ[{0, 1}, Union[Flatten[Drop[Drop[path[n], 1], -1] - path[n-1], 1]]]
    (* data *)
    Select[Range[10000], atmostOneDiagonalsQ[#] && Length[a237270[#]]==3 &]
    (* expression for the triangle in the Example section *)
    TableForm[Table[2^k Prime[n]^2, {n, 2, 57}, {k, 0, Floor[Log[2, Prime[n]] - 1]}], TableDepth -> 2, TableHeadings -> {Map[Prime, Range[2, 57]], Range[0, Floor[Log[2, Prime[57] - 1]]]}]

Formula

As an irregular triangle, T(n, k) = 2^k * prime(n)^2 where n >= 2 and 0 <= k <= floor(log_2(prime(n)) - 1).

A250071 Smallest number k such that the symmetric representation of sigma(k) has maximum width n for those k whose representation has nondecreasing width up to the diagonal.

Original entry on oeis.org

1, 6, 72, 120, 5184, 1440, 373248, 6720, 28800, 103680, 1934917632, 80640, 278628139008, 7464960, 2073600, 483840, 1444408272617472, 1612800, 103997395628457984, 5806080, 298598400, 77396705280, 539122498937926189056, 7096320, 1658880000, 5572562780160, 90316800, 418037760, 402452788967166148425547776, 116121600
Offset: 1

Views

Author

Hartmut F. W. Hoft, Nov 11 2014

Keywords

Comments

The symmetric representation of sigma(k) has nondecreasing width to the diagonal precisely when all odd divisors counted in the k-th row of A237048 occur at odd indices. If we write k = 2^m * q with m >= 0 and q odd, this property is equivalent to q < 2^(m+1).
The values for a(11), a(13), a(17) and a(19) were computed directly using the formula k = 2^m * 3^(p-1) where p is one of the four primes and m the smallest exponent so that 3^(p-1) < 2^(m+1). Each of these numbers has a symmetric representation of nondecreasing width ending in a prime number width, and they are the first such numbers since the number of divisors of an odd number is a prime precisely when the number is a power of a prime.
The other numbers listed whose symmetric representations of sigma(k) have nondecreasing width are smaller than 7500000. The only additional numbers k <= 100000000 are a(24) = 7096320, a(27) = 90316800 and a(32) = 85155840.
See A340506 for another way to look at this data. - N. J. A. Sloane, Jan 23 2021

Examples

			a(6) = 1440 = 2^5 * 3^2 * 5 has 6 odd divisors. It is the smallest number of the form 2^m * q with m > 0, q odd and such that q < 2^(m+1).
		

Crossrefs

Programs

  • Mathematica
    (* function a2[ ] is defined in A249223 *)
    smallQ[n_] := Module[{x=2^IntegerExponent[n,2]}, n/x<2x]
    ndWidth[{m_,n_}] := Select[Range[m, n], smallQ]
    a250071[x_List] := Module[{i, max, acc={{1, 1}}}, For[i=1, i<=Length[x], i++, max={Max[a2[x[[i]]]], x[[i]]}; If[!MemberQ[Transpose[acc][[1]], max[[1]]], AppendTo[acc, max]]]; acc]
    (* returns (argument,result) data pairs since sequence is non-monotonic *)
    Sort[a250071[ndWidth[{1,100000000}]]] (* computed in steps *)
    (* alternate implementation using function f[ ] by T. D. Noe in A162247 *)
    sF[n_] := Min[Map[Apply[Times, Prime[Range[2, Length[#]+1]]^#]&, Map[Reverse[#-1]&, f[n]]]]
    f1U[n_] := Module[{s=sF[n], k}, k=Floor[Log[2, s]]; 2^k s]
    a250071[n_] := Map[f1U, Range[n]]
    a250071[30] (* Hartmut F. W. Hoft, Nov 27 2024 *)

Formula

a(n) = min(2^m * q, m >= 0 & q odd & sigma_0(q) = n & q < 2^(m+1)) where sigma_0 is the number of divisors.
a(p) = 2^ceiling((p-1)*(log_2(3)) - 1) * 3^(p-1) for primes p.

Extensions

a(21)-a(30) from Hartmut F. W. Hoft, Nov 27 2024

A262611 Triangle read by rows in which row n lists the widths of the symmetric representation of A024916(n): the sum of all divisors of all positive integers <= n.

Original entry on oeis.org

1, 1, 2, 1, 1, 2, 2, 2, 1, 1, 2, 3, 3, 3, 2, 1, 1, 2, 3, 3, 3, 3, 3, 2, 1, 1, 2, 3, 4, 4, 5, 4, 4, 3, 2, 1, 1, 2, 3, 4, 4, 4, 5, 4, 4, 4, 3, 2, 1, 1, 2, 3, 4, 5, 5, 5, 6, 5, 5, 5, 4, 3, 2, 1, 1, 2, 3, 4, 5, 5, 5, 6, 7, 6, 5, 5, 5, 4, 3, 2, 1, 1, 2, 3, 4, 5, 6, 6, 6, 7, 7, 7, 6, 6, 6, 5, 4, 3, 2, 1, 1, 2, 3, 4, 5, 6, 6, 6, 6, 7, 7, 7, 6, 6, 6, 6, 5, 4, 3, 2, 1
Offset: 1

Views

Author

Omar E. Pol, Sep 26 2015

Keywords

Comments

Here T(n,k) is defined to be the "k-th width" of the symmetric representation of A024916(n), with n>=1 and 1<=k<=2n-1.
If both A249351 and this sequence are written as isosceles triangles then the partial sums of the columns of A249351 give the columns of this isosceles triangle (see the second triangle in Example section).
For the definition of the k-th width of the symmetric representation of sigma(n) see A249351.
Note that for the geometric representation of the n-th row of the triangle we need the x-axis, the y-axis, and only a Dyck path which is given by the elements of the n-th row of the triangle A237593.
Row n has length 2*n-1.
Row sums give A024916.
The middle diagonal is A240542.

Examples

			Triangle begins:
1;
1,2,1;
1,2,2,2,1;
1,2,3,3,3,2,1;
1,2,3,3,3,3,3,2,1;
1,2,3,4,4,5,4,4,3,2,1;
1,2,3,4,4,4,5,4,4,4,3,2,1;
1,2,3,4,5,5,5,6,5,5,5,4,3,2,1;
1,2,3,4,5,5,5,6,7,6,5,5,5,4,3,2,1;
1,2,3,4,5,6,6,6,7,7,7,6,6,6,5,4,3,2,1;
1,2,3,4,5,6,6,6,6,7,7,7,6,6,6,6,5,4,3,2,1;
1,2,3,4,5,6,7,7,7,8,9,9,9,8,7,7,7,6,5,4,3,2,1;
...
--------------------------------------------------------------------------
.        Written as an isosceles triangle
.              the sequence begins:               Diagram for n = 1..12
--------------------------------------------------------------------------
.                                                _ _ _ _ _ _ _ _ _ _ _ _
.                      1;                       |_| | | | | | | | | | | |
.                    1,2,1;                     |_ _|_| | | | | | | | | |
.                  1,2,2,2,1;                   |_ _|  _|_| | | | | | | |
.                1,2,3,3,3,2,1;                 |_ _ _|    _|_| | | | | |
.              1,2,3,3,3,3,3,2,1;               |_ _ _|  _|  _ _|_| | | |
.            1,2,3,4,4,5,4,4,3,2,1;             |_ _ _ _|  _| |  _ _|_| |
.          1,2,3,4,4,4,5,4,4,4,3,2,1;           |_ _ _ _| |_ _|_|    _ _|
.        1,2,3,4,5,5,5,6,5,5,5,4,3,2,1;         |_ _ _ _ _|  _|     |
.      1,2,3,4,5,5,5,6,7,6,5,5,5,4,3,2,1;       |_ _ _ _ _| |      _|
.    1,2,3,4,5,6,6,6,7,7,7,6,6,6,5,4,3,2,1;     |_ _ _ _ _ _|  _ _|
.  1,2,3,4,5,6,6,6,6,7,7,7,6,6,6,6,5,4,3,2,1;   |_ _ _ _ _ _| |
.1,2,3,4,5,6,7,7,7,8,9,9,9,8,7,7,7,6,5,4,3,2,1; |_ _ _ _ _ _ _|
...
For n = 3 the symmetric representation of A024916(3) = 8 in the 4th quadrant looks like this:
.
.    Polygon         Cells
.     _ _ _          _ _ _
.    |     |        |_|_|_|
.    |    _|        |_|_|_|
.    |_ _|          |_|_|
.
There are eight cells. The representation of the widths looks like this:
.
.     \ \ \
.     \ \ \
.     \ \    1
.          2 2
.        1 2
.
So the third row of the triangle is [1, 2, 2, 2, 1].
		

Crossrefs

A318843 a(n) is the smallest number k such that the symmetric representation of sigma(k) consists of n parts of width 1.

Original entry on oeis.org

1, 3, 9, 21, 81, 147, 729, 903, 3025, 6875, 59049, 29095, 531441, 171875, 366025, 643885, 43046721, 3511475
Offset: 1

Views

Author

Hartmut F. W. Hoft, Sep 04 2018

Keywords

Comments

The sequence is infinite since, for example, for any n >= 1 the symmetric representation of sigma(3^n) consists of n + 1 parts of width 1. However, it is not increasing since a(11) = 59049 = 3^10 and a(12) = 29095 = 5 * 11 * 23^2. Also a(13) <= 531441 = 3^12.
This sequence is a subsequence of A174905; its subsequences a(n) for odd/even n are subsequences of A241010/A241008, respectively. Some even-indexed elements of this sequence are members of A239663, e.g., a(2), a(4), a(6), a(8) and a(12), but not a(10) = 6875.
The central pair of parts in the symmetric representation of sigma(a(2)), sigma(a(4)) and sigma(a(8)) meets at the diagonal (see A298856).
From Hartmut F. W. Hoft, Oct 04 2021: (Start)
An upper bound to the sequence is a(n) <= 3^(n-1), n >= 1, (see A348171).
For p = 1,2,3,5,7,11,13,17, a(p) = 3^(p-1) and this equality possibly holds for all a(p) with p a prime.
Also, 75 * 10^6 < a(19) <= 3^18, a(20) = 15391255, a(21) = 44289025 and a(n) > 75 * 10^6 for n > 21.
a(13)-a(18) computations based on A348171 rather than A237270.
The symmetric representation of sigma(3^(p-1)), p prime, consists of p parts and its middle part has area 3^((p-1)/2). (End)
a(n) >= A038547(n) with equality for n=1 and primes n since the distinct prime divisors of n can be replaced by primes 3, 5, 7, 11, ... yielding a smaller number k with the same number of odd divisors. However, some parts in the symmetric representation of sigma(k) have width at least 2. - Hartmut F. W. Hoft, Dec 11 2023

Examples

			The smallest number k whose symmetric representation of sigma(k) consists of four parts of width one is a(4) = 21. The parts are 11, 5, 5, 11.
a(4) = 3*7 has width pattern, A341969, 1010101 while A038547(4) = 3*5 has width pattern 1012101. a(6) = 3 * 7^2 = 147 has width pattern 10101010101 while A038547(6) = 3^2 * 5 = 45 has width pattern 10121212101. - _Hartmut F. W. Hoft_, Dec 11 2023
		

Crossrefs

Programs

  • Mathematica
    (* Function path[] is defined in A237270 *)
    segmentsSR[pathN0_, pathN1_] := SplitBy[Map[Min, Drop[Drop[pathN0, 1], -1] - pathN1], #==0&]
    regions[pathN0_ ,pathN1_] := Select[Map[Apply[Plus, #]&, segmentsSR[pathN0, pathN1]], #!=0&]
    width1Q[pathN0_, pathN1_] := SubsetQ[{0, 1}, Union[Flatten[Drop[Drop[pathN0, 1], -1] - pathN1, 1]]]
    (* parameter seq is the list of elements of the sequence in interval 1..m-1 already computed with an entry of 0 representing an element not yet found *)
    a318843[m_, n_, seq_] := Module[{list=Join[seq, Table[0, 10]], path1=path[m-1], path0, k, a, r, w}, For[k=m, k<=n, k++, path0=path[k]; a=regions[path0, path1]; r=Length[a]; w=width1Q[path0, path1]; If[w && list[[r]]==0, list[[r]]=k]; path1=path0]; list]
    a318843[2,60000,{1}] (* data - actually computed in steps *)

Extensions

a(13)-a(18) from Hartmut F. W. Hoft, Oct 04 2021
Showing 1-10 of 15 results. Next