OFFSET
0,1
LINKS
T. D. Noe, Rows n = 0..100 of triangle, flattened
FORMULA
MATHEMATICA
t = 7^Range[0, 9]; Select[Union[Flatten[Table[i + j, {i, t}, {j, t}]]], # <= t[[-1]] + 1 &] (* T. D. Noe, Oct 09 2011 *)
Total/@Tuples[7^Range[0, 10], 2]//Union (* Harvey P. Dale, Dec 31 2017 *)
CROSSREFS
KEYWORD
AUTHOR
Henry Bottomley, Jun 22 2000
STATUS
approved