OFFSET
1,2
COMMENTS
Conjecture: The sequence is unbounded. - Felix Fröhlich, Aug 08 2017
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
nxt[{n_, a_}]:={n+1, If[EvenQ[a], a/2, a(n+1)]}; NestList[nxt, {1, 1}, 40][[All, 2]] (* Harvey P. Dale, Dec 23 2020 *)
PROG
(PARI) terms(n) = my(x=1, k=1, i=0); while(1, if(i==n, break, if(i==0, print1(x, ", "); k++; i++, if(x%2==0, x=x/2; k++, x=x*k; k++); print1(x, ", "); i++)))
/* Print initial 40 terms as follows */
terms(40) \\ Felix Fröhlich, Aug 08 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
John Bailey, Aug 08 2017
STATUS
approved