a=seq(b(x,1,1),t=b(x,12,31),b='d')
length(a[s(a,'%u')==3&trimws(s(a,'%e'))%in%c(2,3,5,7,11,13,17,19,23,29,31)])}
# test cases
sapply(c(1912,1914,1984,1996,2063,2150,2199,2233), y)
eT1mdW5jdGlvbih4KXtzPXN0cmZ0aW1lO2I9SVNPZGF0ZQphPXNlcShiKHgsMSwxKSx0PWIoeCwxMiwzMSksYj0nZCcpCmxlbmd0aChhW3MoYSwnJXUnKT09MyZ0cmltd3MocyhhLCclZScpKSVpbiVjKDIsMyw1LDcsMTEsMTMsMTcsMTksMjMsMjksMzEpXSl9CgojIHRlc3QgY2FzZXMKc2FwcGx5KGMoMTkxMiwxOTE0LDE5ODQsMTk5NiwyMDYzLDIxNTAsMjE5OSwyMjMzKSwgeSk=