OFFSET
0,2
LINKS
FORMULA
a(7n)=7*a(n), a(7n+1)=7n+2, a(7n+2)=49n+7, a(7n+3)=7n+4, a(7n+4)=49n+21, a(7n+5)=7n+6, a(7n+6)=49n+35
MATHEMATICA
a[n_] := a[n] = Which[ Mod[n, 7] == 0, 7*a[n/7], Mod[n, 7] == 1, n+1, Mod[n, 7] == 2, 7*(n-2)+7, Mod[n, 7] == 3, n+1, Mod[n, 7] == 4, 7*(n-4)+21, Mod[n, 7] == 5, n+1, Mod[n, 7] == 6, 7*(n-6)+35]; a[0] = 0; Table[a[n], {n, 0, 63}] (* Jean-François Alcover, Sep 24 2012 *)
CROSSREFS
KEYWORD
nice,nonn
AUTHOR
Henry Bottomley, Apr 27 2000
STATUS
approved