A343638 a(n) = (Sum of decimal digits of 3*n) / 3.
0, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 4, 2, 3, 4, 2, 3, 4, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 3, 4, 5, 6, 1, 2, 3, 1, 2, 3, 1, 2, 3, 4, 2, 3, 4, 2, 3, 4, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 3, 4, 5, 6, 4, 5, 6, 1, 2, 3, 1, 2, 3, 4, 2, 3, 4, 2, 3, 4, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 3, 4, 5, 6, 4, 5, 6, 4, 5, 6
Offset: 0
Examples
Written in rows of 4+3+3 terms, grouped in the same pattern, the table reads: . a( 0) = 0, 1, 2, 3, 1, 2, 3, 1, 2, 3, a( 10) = 1, 2, 3, 4, 2, 3, 4, 2, 3, 4, a( 20) = 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, a( 30) = 3, 4, 5, 6, 1, 2, 3, 1, 2, 3, . a( 40) = 1, 2, 3, 4, 2, 3, 4, 2, 3, 4, a( 50) = 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, a( 60) = 3, 4, 5, 6, 4, 5, 6, 1, 2, 3, . a( 70) = 1, 2, 3, 4, 2, 3, 4, 2, 3, 4, a( 80) = 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, a( 90) = 3, 4, 5, 6, 4, 5, 6, 4, 5, 6, . a(100) = 1, 2, 3, 4, 2, 3, 4, 2, 3, 4, a(110) = 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, a(120) = 3, 4, 5, 6, 4, 5, 6, 4, 5, 6, a(130) = 4, 5, 6, 7, 2, 3, 4, 2, 3, 4, . a(140) = 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, a(150) = 3, 4, 5, 6, 4, 5, 6, 4, 5, 6, a(160) = 4, 5, 6, 7, 5, 6, 7, 2, 3, 4, . a(170) = 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, a(180) = 3, 4, 5, 6, 4, 5, 6, 4, 5, 6, a(190) = 4, 5, 6, 7, 5, 6, 7, 5, 6, 7, (...) a(330) = 6, 7, 8, 9, 1, 2, 3, 1, 2, 3, (...) a(660) = 6, 7, 8, 9, 7, 8, 9, 1, 2, 3, etc.
Crossrefs
Programs
-
Mathematica
a[n_] := Plus @@ IntegerDigits[3*n]/3; Array[a, 100, 0] (* Amiram Eldar, May 19 2021 *)
-
PARI
A343638(n)=sumdigits(3*n)/3
Comments