OFFSET
1,2
MATHEMATICA
m[ 1 ] = 1; m[ 2 ] = 2; m[ 3 ] = 3; m[ 4 ] = 4; m[ 5 ] = 5; m[ 6 ] = 6; m[ n_Integer ] := m[ n ] = Block[ {a = b = c = d = e = f = 0}, Do[ Switch[ Mod[ m[ k ], 6 ], 0, a++, 1, b++, 2, c++, 3, d++, 4, e++, 5, f++ ], {k, 1, n - 1} ]; Switch[ Mod[ n, 6 ], 0, m[ n - 1 ] + m[ n - 1 - a ], 1, m[ n - 1 ] + m[ n - 1 - b ], 2, m[ n - 1 ] + m[ n - 1 - c ], 3, m[ n - 1 ] + m[ n - 1 - d ], 4, m[ n - 1 ] + m[ n - 1 - e ], 5, m[ n - 1 ] + m[ n - 1 - f ] ] ]; Table[ m[ n ], {n, 1, 45} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Apr 22 2001
STATUS
approved