A031007 - OEIS (original) (raw)

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

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