OFFSET
1,4
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..500
MATHEMATICA
Transpose[NestList[{First[#]+1, If[OddQ[First[#]], Last[#]-First[#], Last[#]*First[#]]}&, {1, 1}, 30]][[2]] (* Harvey P. Dale, Dec 12 2011 *)
nxt[{n_, a_}]:={n+1, If[OddQ[n], a-n, a*n]}; NestList[nxt, {1, 1}, 40][[;; , 2]] (* Harvey P. Dale, May 25 2024 *)
PROG
(Haskell)
a047906 n = a047906_list !! (n-1)
a047906_list = 1 : zipWith uncurry
(cycle [(-), (*)]) (zip a047906_list [1..])
-- Reinhard Zumkeller, Nov 14 2013
CROSSREFS
KEYWORD
sign,easy,nice
AUTHOR
Miklos SZABO (mike(AT)ludens.elte.hu)
STATUS
approved