A030575 -id:A030575 - cp's OEIS frontend

A030567 Triangle T(n,k): Write n in base 6 and reverse order of digits to get row n.

0, 1, 2, 3, 4, 5, 0, 1, 1, 1, 2, 1, 3, 1, 4, 1, 5, 1, 0, 2, 1, 2, 2, 2, 3, 2, 4, 2, 5, 2, 0, 3, 1, 3, 2, 3, 3, 3, 4, 3, 5, 3, 0, 4, 1, 4, 2, 4, 3, 4, 4, 4, 5, 4, 0, 5, 1, 5, 2, 5, 3, 5, 4, 5, 5, 5, 0, 0, 1, 1, 0, 1, 2, 0, 1, 3, 0, 1, 4, 0, 1, 5, 0, 1, 0, 1, 1, 1, 1, 1, 2

Offset: 0

Clark Kimberling

If columns are numbered starting with k=0, then T(n,k) contains the coefficient of 6^k in n's base-6 expansion. - M. F. Hasler, Jul 21 2013

R. J. Mathar, Table of n, a(n) for n = 0..5950

See A030548 for a quite complete list of crossreferences.
Cf. A030568 - A030573 for positions of a given digit.
Cf. A030575 - A030580 for run lengths, A030581 - A030585 for more.
Row sums (same as those of A030548) are in A053827.
Cf. A030308, A030341, A030386, A031235, A031007, A031045, A031087, A031298 for the base-2 to base-10 analogs.

Flatten[Table[Reverse[IntegerDigits[n,6]],{n,0,50}]] (* Harvey P. Dale, Sep 27 2015 *)

A030567(n,k=-1)=/*k<0&&error("Flattened sequence not yet implemented.")*/n\6^k%6 \\ Assuming that columns start with k=0, cf. comment. TO DO: implement flattened sequence, such that A030567(n)=a(n). - M. F. Hasler, Jul 21 2013

Initial 0 and better name from Philippe Deléham, Oct 20 2011

Edited and crossrefs added by M. F. Hasler, Jul 21 2013

A043284 Maximal run length in base-10 representation of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2

Offset: 1

Clark Kimberling

The first term larger than 2 is a(111) = 3. - M. F. Hasler, Jul 21 2013

Paolo Xausa, Table of n, a(n) for n = 1..10000

Cf. A043276-A043290 for base-2 to base-16 analogs.
Cf. A030556-A030561, A030575-A030580 (related to base-6 run lengths).
Cf. A227186, A227188, A101211, A005811 (related to base-2 run lengths).

A043284[n_]:=Max[Map[Length,Split[IntegerDigits[n]]]];Array[A043284,100] (* Paolo Xausa, Sep 27 2023 *)

A043284(n)={my(m,c=1);while(n>0,n%10==(n\=10)%10 && c++ && next;m=max(m,c);c=1);m} \\ M. F. Hasler, Jul 23 2013

For n < 111, a(n) = 1 except for a(n) = 2 when n==0 (mod 11) or n = 100. - M. F. Hasler, Jul 21 2013

Data completed up to a(100), first difference with A083230, by M. F. Hasler, Oct 18 2019

cp's OEIS Frontend

A030567 Triangle T(n,k): Write n in base 6 and reverse order of digits to get row n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Extensions