OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..58
EXAMPLE
For example, for n=3 the array looks like this:
1..1.....1..1..1..1..1..1..1..1..1..1..1..1..1..1..1..1..1
............1..2..3..4..5..6..7..8..9.10.11.12.13.14.15.16
...............................................13.27.42.58
........................................................58
Therefore a(4)=58.
MAPLE
proc(n::nonnegint) local f, a; if n=0 or n=1 then return 1; end if; f:=L->[seq(add(L[i], i=3*nops(L)/4+1..j), j=3*nops(L)/4+1..nops(L))]; a:=f([seq(1, j=1..4^n)]); while nops(a)>4 do a:=f(a) end do; a[4]; end proc;
MATHEMATICA
A[n_, k_] := A[n, k] = If[n == 0, 1, -Sum[A[j, k]*(-1)^(n - j)* Binomial[If[j == 0, 1, k^j], n - j], {j, 0, n - 1}]];
a[n_] := A[n, 4];
CROSSREFS
KEYWORD
nonn
AUTHOR
Augustine O. Munagi, Jun 17 2005
EXTENSIONS
More terms from Alois P. Heinz, Jul 06 2022
STATUS
approved