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
Links
- R. J. Mathar, Table of n, a(n) for n = 0..5950
Crossrefs
See A030548 for a quite complete list of crossreferences.
Programs
-
Mathematica
Flatten[Table[Reverse[IntegerDigits[n,6]],{n,0,50}]] (* Harvey P. Dale, Sep 27 2015 *)
-
PARI
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
Extensions
Initial 0 and better name from Philippe Deléham, Oct 20 2011
Edited and crossrefs added by M. F. Hasler, Jul 21 2013
Comments