A138099 Irregular triangle read by rows: T(n,k) = k + floor(n/2), 1 <= k <= ceiling(n/2).

1, 2, 2, 3, 3, 4, 3, 4, 5, 4, 5, 6, 4, 5, 6, 7, 5, 6, 7, 8, 5, 6, 7, 8, 9, 6, 7, 8, 9, 10, 6, 7, 8, 9, 10, 11, 7, 8, 9, 10, 11, 12, 7, 8, 9, 10, 11, 12, 13, 8, 9, 10, 11, 12, 13, 14, 8, 9, 10, 11, 12, 13, 14, 15, 9, 10, 11, 12, 13, 14, 15, 16, 9, 10, 11, 12, 13

Offset

1,2

Comments

Previous name was: Base for 8 X 32 Janet periodic table of elements. Ordered energy levels of atoms.

Links

Table of n, a(n) for n=1..77.

Formula

a(n) = n - floor((1/4)*(floor(sqrt(4*n-3))-1)^2). - Mircea Merca, Feb 05 2012

From Benedict W. J. Irwin, May 14 2016: (Start)

Conjecture: a(n) = HookSum(T(n))-HookSum(T(n-1)), where HookSum(A) is the sum of all hooks across a tableau A, and T(n) are the spiraling sequence of tableaux:

o oo ooo

Empty, o, oo, oo, oo, oo , ooo , ooo, ooo, ooo, ...

o oo ooo ooo ooo ooo ooo

(End)

Example

Triangle begins:
1;
2;
2, 3;
3, 4;
3, 4, 5;
4, 5, 6;
4, 5, 6, 7;
5, 6, 7, 8;
...

Mathematica

Table[k+Floor[n/2], {n, 20}, {k, Ceiling[n/2]}]//Flatten (* Harvey P. Dale, Aug 15 2017 *)

Prog

(Magma) lst:=[]; for n in [1..16] do for k in [1..Ceiling(n/2)] do Append(~lst, k+Floor(n/2)); end for; end for; lst; // Arkadiusz Wesolowski, Jun 15 2014

Crossrefs

Sequence in context: A087504 A067539 A166312 * A359634 A353936 A110266

Adjacent sequences: A138096 A138097 A138098 * A138100 A138101 A138102

Keyword

nonn,easy,tabf

Author

Paul Curtz, May 03 2008

Extensions

Name changed and more terms added by Arkadiusz Wesolowski, Jun 15 2014

Status

approved