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.

Previous Showing 11-13 of 13 results.

A266094 a(n) is the sum of the divisors of the smallest number k such that the symmetric representation of sigma(k) has n parts.

Original entry on oeis.org

1, 4, 13, 32, 104, 228, 576, 1408, 4104, 9824, 19152, 39816, 82944, 196992, 441294, 881280, 1911168, 4539024
Offset: 1

Views

Author

Omar E. Pol, Dec 21 2015

Keywords

Comments

For more information see A239663 and A239665.

Examples

			Illustration of the symmetric representation of sigma(9):
.
.     _ _ _ _ _ 5
.    |_ _ _ _ _|
.              |_ _ 3
.              |_  |
.                |_|_ _ 5
.                    | |
.                    | |
.                    | |
.                    | |
.                    |_|
.
For n = 3 we have that 9 is the smallest number whose symmetric representation of sigma has three parts: [5, 3, 5], so a(3) = 5 + 3 + 5 = 13, equaling the sum of divisors of 9: sigma(9) = 1 + 3 + 9 = 13.
For n = 7 we have that 357 is the smallest number whose symmetric representation of sigma has seven parts: [179, 61, 29, 38, 29, 61, 179], so a(7) = 179 + 61 + 29 + 38 + 29 + 61 + 179 = 576, equaling the sum of divisors of 357: sigma(357) = 1 + 3 + 7 + 17 + 21 + 51 + 119 + 357 = 576.
		

Crossrefs

Formula

a(n) = A000203(A239663(n)).

Extensions

a(14)-a(18) from Omar E. Pol, Jul 21 2018

A320521 a(n) is the smallest even number k such that the symmetric representation of sigma(k) has n parts.

Original entry on oeis.org

2, 10, 50, 230, 1150, 5050, 22310, 106030, 510050, 2065450, 10236350
Offset: 1

Views

Author

Omar E. Pol, Oct 14 2018

Keywords

Comments

It appears that a(n) = 2 * q where q is odd and that the symmetric representation of sigma(a(n)/2) has the same number of parts as that for a(n). Number a(12) > 15000000. - Hartmut F. W. Hoft, Sep 22 2021

Examples

			a(1) = 2 because the second row of A237593 is [2, 2], and the first row of the same triangle is [1, 1], therefore between both symmetric Dyck paths there is only one part: [3], equaling the sum of the divisors of 2: 1 + 2 = 3. See below:
.
.     _ _ 3
.    |_  |
.      |_|
.
.
a(2) = 10 because the 10th row of A237593 is [6, 2, 1, 1, 1, 1, 2, 6], and the 9th row of the same triangle is [5, 2, 2, 2, 2, 5], therefore between both symmetric Dyck paths there are two parts: [9, 9]. Also there are no even numbers k < 10 whose symmetric representation of sigma(k) has two parts. Note that the sum of these parts is 9 + 9 = 18, equaling the sum of the divisors of 10: 1 + 2 + 5 + 10 = 18. See below:
.
.     _ _ _ _ _ _ 9
.    |_ _ _ _ _  |
.              | |_
.              |_ _|_
.                  | |_ _ 9
.                  |_ _  |
.                      | |
.                      | |
.                      | |
.                      | |
.                      |_|
.
a(3) = 50 because the 50th row of A237593 is [26, 9, 4, 3, 3, 1, 2, 1, 1, 1, 1, 2, 1, 3, 3, 4, 9, 26], and the 49th row of the same triangle is [25, 9, 5, 3, 2, 1, 2, 1, 1, 1, 1, 2, 1, 2, 3, 5, 9, 25], therefore between both symmetric Dyck paths there are three parts: [39, 15, 39]. Also there are no even numbers k < 50 whose symmetric representation of sigma(k) has three parts. Note that the sum of these parts is 39 + 15 + 39 = 93, equaling the sum of the divisors of 50: 1 + 2 + 5 + 10 + 25 + 50 = 93. (The diagram of the symmetric representation of sigma(50) = 93 is too large to include.)
		

Crossrefs

Row 1 of A320537.
Cf. A237270 (the parts), A237271 (number of parts), A174973 (one part), A239929 (two parts), A279102 (three parts), A280107 (four parts), A320066 (five parts), A320511 (six parts).

Programs

  • Mathematica
    (* support functions are defined in A341969, A341970 & A341971 *)
    a320521[n_, len_] := Module[{list=Table[0, len], i, v}, For[i=2, i<=n, i+=2, v=Count[a341969[i], 0]+1;If[list[[v]]==0, list[[v]]=i]]; list]
    a320521[15000000,11] (* Hartmut F. W. Hoft, Sep 22 2021 *)

Extensions

a(6)-a(11) from Hartmut F. W. Hoft, Sep 22 2021

A320537 Square array read by antidiagonals in which T(n,k) is the n-th even number j with the property that the symmetric representation of sigma(j) has k parts.

Original entry on oeis.org

2, 4, 10, 6, 14, 50, 8, 22, 70, 230, 12, 26, 98, 250, 1150, 16, 34, 110, 290, 1250, 5050, 18, 38, 130, 310, 1450, 5150, 22310, 20, 44, 154, 370, 1550, 5290, 23230, 106030, 24, 46, 170, 406, 1850, 5350, 23690, 106490, 510050, 28, 52, 182, 410, 2030, 5450, 24610, 107410, 513130, 2065450
Offset: 1

Views

Author

Omar E. Pol, Oct 15 2018

Keywords

Comments

This is a permutation of the positive even numbers (A299174).
The union of all odd-indexed columns gives A319796, the even numbers in A071562.
The union of all even-indexed columns gives A319802, the even numbers in A071561.

Examples

			From _Hartmut F. W. Hoft_, Oct 06 2021: (Start)
The 10x10 section of table T(n,k):
(Table with first 20 terms from _Omar E. Pol_)
------------------------------------------------------------------
n\k | 1   2   3    4    5     6     7      8       9       10  ...
------------------------------------------------------------------
  1 | 2   10  50   230  1150  5050  22310  106030  510050  2065450
  2 | 4   14  70   250  1250  5150  23230  106490  513130  2115950
  3 | 6   22  98   290  1450  5290  23690  107410  520150  2126050
  4 | 8   26  110  310  1550  5350  24610  110170  530150  2157850
  5 | 12  34  130  370  1850  5450  25070  112010  530450  2164070
  6 | 16  38  154  406  2030  5650  25250  112930  532450  2168150
  7 | 18  44  170  410  2050  5750  25750  114770  534290  2176550
  8 | 20  46  182  430  2150  6250  25990  115690  537050  2186650
  9 | 24  52  190  434  2170  6350  26450  116150  540350  2216950
  10| 28  58  238  470  2350  6550  26750  117070  544870  2219650
   ... (End)
		

Crossrefs

Programs

  • Mathematica
    (* function a341969 is defined in A341969 *)
    sArray[b_, pMax_] := Module[{list=Table[{}, pMax], i, p}, For[i=2, i<=b, i+=2, p=Length[Select[SplitBy[a341969[i], #!=0&], #[[1]]!=0&]]; If[p<=pMax&&Length[list[[p]]]Hartmut F. W. Hoft, Oct 06 2021 *)

Extensions

Terms a(21) and beyond from Hartmut F. W. Hoft, Oct 06 2021
Previous Showing 11-13 of 13 results.