A113744 Generalized Mancala solitaire (A002491); to get n-th term, start with n and successively round up to next 7 multiples of n-1, n-2, ..., 1, for n>=1.
1, 8, 22, 42, 70, 102, 142, 192, 240, 298, 360, 438, 510, 612, 708, 780, 898, 1002, 1122, 1254, 1392, 1542, 1662, 1834, 1992, 2118, 2302, 2494, 2662, 2862, 3054, 3274, 3502, 3648, 3930, 4114, 4374, 4582, 4834, 5122, 5382, 5628, 5938, 6162, 6462, 6834, 7092
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
f[n_] := Fold[ #2*Ceiling[ #1/#2 + 6] &, n, Reverse@Range[n - 1]]; Array[f, 47]