1,3

a[n_] := 1 /; n == 1 a[n_] := 1 /; n == 2 a[n_] := 2^a[n - 1] + 2^a[n - 2] /; n > 2; Table[a[i], {i, 1, 6}]

Adjacent sequences: A069871 A069872 A069873 this_sequence A069875 A069876 A069877

Sequence in context: A086400 A082022 A114574 this_sequence A012496 A024572 A009267

nonn

Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Apr 23 2002

a(6) has 78919 digits.