login
This site is supported by donations to The OEIS Foundation.

 

Logo


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.

License Agreements, Terms of Use, Privacy Policy. .

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