OFFSET
1,3
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000 [From Zak Seidov, May 04 2010]
MATHEMATICA
a={1, 1}; Do[c=If[EvenQ[n], a[[n/2]], If[(b=a[[n-2]]-a[[(n-1)/2]])>0&&FreeQ[a, b], b, a[[n-2]]+a[[(n-1)/2]]]]; AppendTo[a, c], {n, 3, 1000}]; a [From Zak Seidov, May 04 2010]
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 02 2010
EXTENSIONS
More terms from Zak Seidov, May 04 2010
STATUS
approved