A031007 Triangle T(n,k): Write n in base 7, reverse order of digits, to get row n.

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

Offset

0,3

Links

Table of n, a(n) for n=0..90.

Mathematica

Flatten[Table[Reverse[IntegerDigits[n, 7]], {n, 0, 50}]] (* Harvey P. Dale, Feb 25 2014 *)

Prog

(PARI) A031007(n, k=-1)={k<0&&error("Flattened sequence not yet implemented."); n\7^k%7} \\ Assuming that columns start with k=0 as in A030308, A030341, ... TO DO: implement flattened sequence, such that A030567(n)=a(n). - M. F. Hasler, Jul 21 2013

Crossrefs

Cf. A030308, A030341, A030386, A031235, A030567, A031045, A031087, A031298 for the base-2 to base-10 analogs.

Sequence in context: A037849 A037885 A347729 * A010876 A309958 A055400

Adjacent sequences: A031004 A031005 A031006 * A031008 A031009 A031010

Keyword

nonn,base,tabf,less

Author

Clark Kimberling

Extensions

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

Status

approved