OFFSET
0,2
MATHEMATICA
a[0] = 0; a[n_] := Which[m = Mod[n, 18]; m == 0, 9*n-81, m == 9, n+9, MemberQ[ {1, 3, 5, 7, 10, 12, 14, 16}, m], n+1, True, 9*n-9]; Table[ a[n], {n, 0, 62}] (* Jean-François Alcover, Sep 24 2012 *)
CROSSREFS
KEYWORD
nice,nonn
AUTHOR
Henry Bottomley, Apr 27 2000
STATUS
approved