OFFSET
1,1
FORMULA
a(n)+1 = A153839(n) (mod 7). [R. J. Mathar, Mar 20 2010]
MATHEMATICA
fs[mo_]:=Module[{s=1}, While[DayName[{2001, mo, s}]!=Sunday, s++]; s]; Array[ fs, 12] (* Harvey P. Dale, Sep 10 2017 *)
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
J. Lowell, Jan 02 2009
EXTENSIONS
Keywords fini,full added by R. J. Mathar, Mar 20 2010
STATUS
approved