This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A070885 a(n) = (3/2)*a(n-1) if a(n-1) is even; (3/2)*(a(n-1)+1) if a(n-1) is odd. 15
 1, 3, 6, 9, 15, 24, 36, 54, 81, 123, 186, 279, 420, 630, 945, 1419, 2130, 3195, 4794, 7191, 10788, 16182, 24273, 36411, 54618, 81927, 122892, 184338, 276507, 414762, 622143, 933216, 1399824, 2099736, 3149604, 4724406, 7086609, 10629915 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS The smallest positive number such that A024629(a(n)) has n digits, per page 9 of the Tanton reference in Links. - Glen Whitney, Sep 17 2017 REFERENCES Wolfram, S. A New Kind of Science. Champaign, IL: Wolfram Media, 2002, p. 123. LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..1000 B. Chen, R. Chen, J. Guo, S. Lee et al, On Base 3/2 and its sequences, arXiv:1808.04304 James Tanton, Exploding Dots, Chapter 9 Eric Weisstein's World of Mathematics, Wolfram Sequences FORMULA For n > 1, a(n) = 3*A061419(n) = 3*floor(K*(3/2)^n) where K=1.08151366859... - Benoit Cloitre, Aug 18 2002 a(n) = 3*ceiling(a(n-1)/2). - Benoit Cloitre, Apr 25 2003 a(n+1) = a(n) + A081848(n), for n > 1. - Reinhard Zumkeller, Sep 05 2014 MAPLE A070885 := proc(n)     option remember;     if n = 1 then         return 1;     elif type(procname(n-1), 'even') then         procname(n-1) ;     else         procname(n-1)+1 ;     end if;     %*3/2 ; end proc: seq(A070885(n), n=1..80) ; # R. J. Mathar, Jun 18 2018 MATHEMATICA NestList[If[EvenQ[#], 3/2 #, 3/2 (#+1)]&, 1, 40] (* Harvey P. Dale, May 18 2018 *) PROG (Haskell) a070885 n = a070885_list !! (n-1) a070885_list = 1 : map (flip (*) 3 . flip div 2 . (+ 1)) a070885_list -- Reinhard Zumkeller, Sep 05 2014 CROSSREFS The constant K is 2/3*K(3) (see A083286). - Ralf Stephan, May 29 2003 Cf. A003312. Cf. A081848. Cf. A205083 (parity of terms). Sequence in context: A007187 A082004 A112773 * A002597 A287554 A308777 Adjacent sequences:  A070882 A070883 A070884 * A070886 A070887 A070888 KEYWORD nonn AUTHOR Eric W. Weisstein, May 14 2002 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 17 01:03 EDT 2019. Contains 328103 sequences. (Running on oeis4.)