1,2

The numbers are very big after n=6:

699301187738697776955234590818575878858497870436943950335371702267592105356658

849941404678768037675247402565958747959976067293704659262352355225014691708927

778552892641086343071274181444416049073520682688565978919033071721714880653653

080309872598715536025092978123435527211585005389271350498723935289464449420805

795571832413526658955115512510611494293919617563498533091225832128243546205605

992399467856781652450135524637534848361445349052823349129955310671992962375769

922037205735947982909072338647248893042158639365515004077074834659222711212403

575797324146436716175464082981330742529857175516323162599993277609188166949854

918220220568926227236394740277576705068

a(n)=Binomial[a(n-1),n].

Clear[a, n] a[0] = 1; a[1] = 4; a[n_] := a[n] = Binomial[a[n - 1], n]; Table[a[n], {n, 0, 10}]

Sequence in context: A027377 A048789 A038069 this_sequence A019147 A026722 A151520

Adjacent sequences: A143388 A143389 A143390 this_sequence A143392 A143393 A143394

nonn,uned,probation

Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 23 2008