A200379 -id:A200379 - cp's OEIS frontend

A057153 Construct difference array so that (1) first row begins with 1, (2) every row is monotonic increasing, (3) no number appears more than once, (4) smallest number not yet used begins a new row. Sequence gives first row of array.

1, 3, 9, 26, 73, 194, 485, 1150, 2617, 5779, 12497, 26653, 56355, 118545, 248605, 520365, 1087853, 2272770, 4748677, 9930475, 20800122, 43658310, 91836751, 193549010, 408449129, 862455193, 1820771343, 3840569196, 8089327515

Offset: 1

Jonas Wallgren, Jul 30 2000

This is the limit of the family of sequences starting with A005228, A037257, A037260. Adjoin next free number as the first element in a new level of differences unless it would produce a duplicate in which case ignore.

			Array begins
1 3 9 26 73 194 ...
.2 6 17 47 121 ...
. 4 11 30 74 ...
.. 7 19 44 ...
... 12 25 ...
.... 13 ...

Reinhard Zumkeller, Table of n, a(n) for n = 1..150

Cf. A057154 (numbers not used), A052474 (main diagonal), A056230 (array). See also A005228, A037257, A037260, A057267, A056231, A056232, A056233, A056234.
Cf. A133544.
Cf. A200379 (first differences).

a057153 n = a056230_tabl !! (n-1) !! (n-1)
-- Reinhard Zumkeller, Nov 19 2011

Row sums of triangle A133544. - Gary W. Adamson, Sep 14 2007

More terms from Rob Speer (rob(AT)twcny.rr.com) and Loren Merritt, Aug 14 2000

A056230 Construct difference array so that (1) first row begins with 1, (2) every row is monotonic increasing, (3) no number appears more than once, (4) smallest number not yet used begins a new row. Sequence gives array read by antidiagonals.

Original entry on oeis.org

1, 2, 3, 4, 6, 9, 7, 11, 17, 26, 12, 19, 30, 47, 73, 13, 25, 44, 74, 121, 194, 14, 27, 52, 96, 170, 291, 485, 15, 29, 56, 108, 204, 374, 665, 1150, 16, 31, 60, 116, 224, 428, 802, 1467, 2617, 18, 34, 65, 125, 241, 465, 893, 1695, 3162, 5779, 20, 38, 72, 137, 262

Offset: 1

Jonas Wallgren, Jul 30 2000

			Array begins
1 3 9 26 73 194 ...
.2 6 17 47 121 ...
. 4 11 30 74 ...
.. 7 19 44 ...
... 12 25 ...
.... 13 ...

Reinhard Zumkeller, Antidiagonals n=1..150 of array, flattened

Cf. A057153 (first row), A200379 (second row), A052474 (main diagonal), A057154 (numbers not used), A056231, A056232, A056233, A056234.

import Data.List (intersect, union, (\\))
a056230 n k = a056230_tabl !! (n-1) !! (k-1)
a056230_tabl = [1] : f [1] [2..] [1] where
   f adiag (a:as) us | null (adiag' `intersect` us) =
                       adiag' : f adiag' (as \\ adiag') (us `union` adiag')
                     | otherwise = f adiag as us
                     where adiag' = scanl (+) a adiag
-- Reinhard Zumkeller, Nov 19 2011

cp's OEIS Frontend

A057153 Construct difference array so that (1) first row begins with 1, (2) every row is monotonic increasing, (3) no number appears more than once, (4) smallest number not yet used begins a new row. Sequence gives first row of array.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Formula

Extensions