A138002 a(3*n)=2*n, a(3*n+1)=a(n)+n, a(3*n+2)=2*a(n), a(n)=0 for n<3.

0, 0, 0, 2, 1, 0, 4, 2, 0, 6, 5, 4, 8, 5, 2, 10, 5, 0, 12, 10, 8, 14, 9, 4, 16, 8, 0, 18, 15, 12, 20, 15, 10, 22, 15, 8, 24, 20, 16, 26, 18, 10, 28, 16, 4, 30, 25, 20, 32, 21, 10, 34, 17, 0, 36, 30, 24, 38, 29, 20, 40, 28, 16, 42, 35, 28, 44, 31, 18, 46, 27, 8, 48, 40, 32, 50, 33, 16, 52

Offset

0,4

Links

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Formula

a(n) = (n mod 3) * a(floor(n/3)) + (2 - n mod 3) * floor(n/3), a(n) = 0.

a(A062318(n)) = 0.

Mathematica

a[0]=0; a[n_]:=Mod[n, 3]*a[Floor[n/3]]+(2-Mod[n, 3])*Floor[n/3]; Array[a, 79, 0] (* James C. McMahon, Jun 05 2025 *)

Crossrefs

Cf. A025480.

Sequence in context: A139136 A122792 A348218 * A261877 A062296 A249343

Adjacent sequences: A137999 A138000 A138001 * A138003 A138004 A138005

Keyword

nonn

Author

Reinhard Zumkeller, Feb 26 2008

Status

approved