1,3

a = {1, 1}; For[i = 3, i <= 8, i++, c = (a[[i - 1]] + a[[i - 2]]!); a = Append[a, c]]; a

Sequence in context: A056163 A118573 A051835 this_sequence A127814 A162253 A112978

Adjacent sequences: A075880 A075881 A075882 this_sequence A075884 A075885 A075886

nonn

Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Oct 17 2002