OFFSET
1,1
FORMULA
MATHEMATICA
nn = 36; b = Table[Fibonacci[n + 2], {n, nn}]; d = Take[Complement[Range[2, 2*nn], b], nn]; b + d (* T. D. Noe, Mar 09 2011 *)
fibs=Select[Fibonacci[Range[60]], #>1&]; nonfibs=Take[Complement[Range[4, 75], fibs], Length[fibs]]; Total/@Thread[{fibs, nonfibs}] (* Harvey P. Dale, Mar 10 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved