login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A279286
a(n) = d if the point (d,d) is shared by a record of different Dyck paths in the main diagonal of the diagram of the symmetries of sigma described in A237593.
16
1, 2, 7, 15, 52, 102, 296, 371, 455, 929, 1853, 2034, 4517, 4797, 5829, 6146, 6948, 17577, 18915, 60349, 78369, 85171, 123788, 128596, 415355, 906771, 1308771, 3329668
OFFSET
1,2
COMMENTS
Is this sequence infinite?
First differs from A282197 (another version) at a(19). - Omar E. Pol, Feb 08 2017
a(n) = d if the point (d,d) belongs to a vertical-line-segment whose length is a record in the main diagonal of the pyramid described in A245092 (starting from the top). The diagram of the symmetries of sigma is also the top view of the mentioned pyramid. See examples. - Omar E. Pol, Feb 09 2017
EXAMPLE
The first record of height difference is between the levels 1 and 2 of the pyramid (starting from the top), at the point (1,1) of the main diagonal of the top view of the pyramid, so a(1) = 1.
The second record of height difference is between the levels 2 and 4, at the point (2,2) of the main diagonal of the top view of the pyramid, so a(2) = 2.
The third record of height difference is between the levels 9 and 12, at the point (7,7) of the main diagonal of the top view of the pyramid, so a(3) = 7.
The fourth record of height difference is between the levels 20 and 24, at the point (15,15) of the main diagonal of the top view of the pyramid, so a(4) = 15.
Illustration of the diagram of the symmetries of sigma (n = 1..16), which is also the top view of the pyramid described in A245092, and it is also a quadrant of the top view of the pyramid described in A244050:
. _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
. |_| | | | | | | | | | | | | | | |
. |_ _|_| | | | | | | | | | | | | |
. |_ _| _|_| | | | | | | | | | | |
. |_ _ _| _|_| | | | | | | | | |
. |_ _ _| _| _ _|_| | | | | | | |
. |_ _ _ _| _| | _ _|_| | | | | |
. |_ _ _ _| |_ _|_| _ _|_| | | |
. |_ _ _ _ _| _| | _ _ _|_| |
. |_ _ _ _ _| | _|_| | _ _ _|
. |_ _ _ _ _ _| _ _| _| |
. |_ _ _ _ _ _| | _| _| _|
. |_ _ _ _ _ _ _| |_ _| _|
. |_ _ _ _ _ _ _| | _ _|
. |_ _ _ _ _ _ _ _| |
. |_ _ _ _ _ _ _ _| |
. |_ _ _ _ _ _ _ _ _|
...
MATHEMATICA
a240542[n_] := Sum[(-1)^(k+1)*Ceiling[(n+1)/k - (k+1)/2], {k, 1, Floor[(Sqrt[8n+1]-1)/2]}]
a279286[b_] := Module[{centers={{1, 1}}, acc={1}, k=2, cPrev=1, cCur, len}, While[k<=b, cCur=a240542[k]; If[Last[acc]==cCur, AppendTo[acc, cCur], len=Length[acc]; If[First[Last[centers]]<len, AppendTo[centers, {len, cPrev}]]; acc={cCur}; cPrev=cCur]; k++]; Last[Transpose[centers]]]
a279286[5000000] (* data *)
(* Hartmut F. W. Hoft, Feb 08 2017 *)
CROSSREFS
Where records occur in A259179, (was the original Name).
Sequence in context: A093652 A200862 A096690 * A282197 A050612 A120110
KEYWORD
nonn,hard,more
AUTHOR
Omar E. Pol, Dec 09 2016
EXTENSIONS
a(7)-a(28) from Hartmut F. W. Hoft, Feb 08 2017
New Name from Omar E. Pol, Feb 09 2017
STATUS
approved