OFFSET
1,1
MATHEMATICA
digits=750;
Hofstadter[n_Integer?Positive] := Hofstadter[n] = Hofstadter[n - Hofstadter[n-1]] + Hofstadter[n - Hofstadter[n-2]];
Hofstadter[1] = Hofstadter[2] = 1;
a1=Table[Hofstadter[n], {n, digits}];
f[x_, y_] := x-y/; x-y>0;
f[x_, y_] := 0/; x-y<=0;
b=Table[If[f[a1[[n]], a1[[n-1]]]>0, a1[[n]], 0], {n, 2, digits}];
c=Delete[Union[b], 1]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Sep 29 2003
STATUS
approved