A254046 Column index of n in A191450: a(3n) = 1, a(3n+1) = 1, a(3n+2) = 1 + a(n+1).

1, 2, 1, 1, 3, 1, 1, 2, 1, 1, 2, 1, 1, 4, 1, 1, 2, 1, 1, 2, 1, 1, 3, 1, 1, 2, 1, 1, 2, 1, 1, 3, 1, 1, 2, 1, 1, 2, 1, 1, 5, 1, 1, 2, 1, 1, 2, 1, 1, 3, 1, 1, 2, 1, 1, 2, 1, 1, 3, 1, 1, 2, 1, 1, 2, 1, 1, 4, 1, 1, 2, 1, 1, 2, 1, 1, 3, 1, 1, 2, 1, 1, 2, 1, 1, 3, 1, 1, 2, 1, 1, 2, 1, 1, 4, 1, 1, 2, 1, 1, 2, 1, 1, 3, 1, 1, 2, 1, 1, 2, 1, 1, 3, 1, 1, 2, 1, 1, 2, 1, 1, 6, 1, 1, 2, 1, 1, 2

Offset

1,2

Comments

Equally, the row index of n in A254051.

a(n) is the 3-adic valuation of A087289(n-1). - Fred Daniel Kline, Jan 11 2017

Links

Antti Karttunen, Table of n, a(n) for n = 1..9842

Formula

a(3n) = 1, a(3n+1) = 1, a(3n+2) = 1 + a(n+1).

a(n) = A253786(n) + 1.

a(n) = A253786(3n-1). - Cyril Damamme, Aug 04 2015

a(n) = A051064(2n-1), i.e., the 3-adic valuation of 6n-3. - Cyril Damamme, Aug 04 2015

Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 3/2. - Amiram Eldar, Nov 16 2023

Mathematica

With[{nmax=200}, IntegerExponent[6Range[nmax]-3, 3]] (* Paolo Xausa, Nov 10 2023 *)

Prog

(Scheme, with memoization-macro definec)
(definec (A254046 n) (if (= 2 (modulo n 3)) (+ 1 (A254046 (/ (+ 1 n) 3))) 1))

Crossrefs

One more than A253786.

Cf. A253887 (the corresponding row index).

Cf. A191450, A254047, A254051, A254052.

Odd bisection of A051064.

Cf. A007949, A087289.

Sequence in context: A098824 A181651 A124032 * A137457 A275699 A305633

Adjacent sequences: A254043 A254044 A254045 * A254047 A254048 A254049

Keyword

nonn,easy

Author

Antti Karttunen, Jan 24 2015

Status

approved