%I #9 May 20 2014 14:52:31
%S 1,2,4,7,12,13,14,15,16,18,20,21,22,23,32,35,36,39,42,48,49,50,51,53,
%T 54,57,58,59,61,62,64,66,68,76,77,78,80,82,86,87,89,91,92,93,98,103,
%U 109,110,118,124,127,128,129,132,133,135,136,139,140,141,142,143,149
%N 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 main diagonal.
%H Reinhard Zumkeller, <a href="/A052474/b052474.txt">Table of n, a(n) for n = 1..150</a>
%e Array begins
%e 1 3 9 26 73 194 ...
%e .2 6 17 47 121 ...
%e . 4 11 30 74 ...
%e .. 7 19 44 ...
%e ... 12 25 ...
%e .... 13 ...
%o (Haskell)
%o a052474 n = a056230_tabl !! (n-1) !! 0
%o -- _Reinhard Zumkeller_, Nov 19 2011
%Y Cf. A057153 (first row), A057154 (numbers not used), A056230 (array), A056231, A056232, A056233, A056234.
%K nice,nonn,easy
%O 1,2
%A _Jonas Wallgren_, Jul 30, 2000.
|