OFFSET
1,2
COMMENTS
Note that A001316(n) = Sum_{k=0..n} mod(C(n,k),2).
MATHEMATICA
a[n_] := Module[{k=0, s=1}, While[s < n, k++; s += (1/Numerator[2^k / k!])] ; k]; Array[a, 60] (* Amiram Eldar, Dec 04 2018 *)
PROG
(PARI) f(n) = numerator(2^n / n!); \\ A001316
a(n) = my(k=0, s=1/f(0)); while (s < n, k++; s += 1/f(k)); k; \\ Michel Marcus, Dec 04 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Jan 06 2014
EXTENSIONS
More terms from Peter J. C. Moses, Jan 06 2014
STATUS
approved