OFFSET
1,1
MATHEMATICA
aa[1] = aa[2] = 1; aa[n_] := aa[n] = aa[aa[n - 2]] + aa[n - aa[n - 2]]; ta2000 = Table[aa[n], {n, 2000}]; re3 = Reap[Do[If[Count[ta2000, k] == 3, Sow[k]], {k, 1379}]][[2, 1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Dec 08 2008
STATUS
approved