OFFSET
1,1
MATHEMATICA
nxt[{a_, b_}]:={b, Mod[a+b, 20000]}; Join[{10000}, Transpose[NestList[nxt, {10000, 2}, 40]][[1]]] (* Harvey P. Dale, Oct 20 2012 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Pierre CAMI, Aug 19 2004
EXTENSIONS
More terms from Harvey P. Dale, Oct 20 2012
STATUS
approved