OFFSET
1,2
FORMULA
a(1) = 1, a(n) = (3*a(n-1)*(a(n-1) + 1))/2 for n > 1.
a(n) ~ (2/3) * c^(2^n), where c = 1.515006464529590220430714781603262955960312205695360166833... - Vaclav Kotesovec, Jul 23 2018
EXAMPLE
Triangle begins:
1, 2; (row sum = 3)
3, 4, 5, 6; (row sum = 18)
18, 19, 20, 21, ... 33, 34, 35, 36; (row sum = 513)
513, 514, 515, 516, ..., 1023, 1024, 1025, 1026;
...
MATHEMATICA
RecurrenceTable[{a[1] == 1, a[n] == (3*a[n-1]*(a[n-1] + 1))/2}, a, {n, 1, 10}] (* Vaclav Kotesovec, Jul 23 2018 *)
Nest[Append[#, Range[#, 2 #] &@ Total@ Last@ #] &, {{1, 2}}, 3] // Flatten (* Michael De Vlieger, Jul 26 2018 *)
PROG
(PARI) a(n) = if (n==1, 1, (3*a(n - 1)*(a(n - 1) + 1))/2); \\ Michel Marcus, May 24 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Nathaniel J. Strout, May 18 2018
STATUS
approved