OFFSET
1,1
LINKS
Peter Kagey, Table of n, a(n) for n = 1..10000
EXAMPLE
A000027 read by antidiagonals is:
1 2 4 7
3 5 8
6 9
...
Thus:
Row 1: []
Row 2: []
Row 3: [2]
Row 4: []
Row 5: [4]
Row 6: [5, 4]
Row 7: []
Row 8: [7]
Row 9: [8, 7]
MATHEMATICA
Table[Reverse@ Range[SelectFirst[Reverse@ #, # < n &] + 1, n - 1] - 1, {n, 2, 35}] &[Accumulate@ Range[0, 15] + 1] // Flatten (* Michael De Vlieger, Jun 10 2016, Version 10 *)
PROG
(Haskell)
a274079 n = a274079_list !! (n - 1)
a274079_list = concatMap a274079_row [1..]
a274079_tabf = map a274079_row [1..]
a274079_row n = [n-1, n-2..n - a002262 (n - 1)]
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Peter Kagey, Jun 09 2016
STATUS
approved