OFFSET
0,17
COMMENTS
If n is different from 3, then a(n)=0 iff n is in A067076, i.e., 2n+3 is prime.
MATHEMATICA
a[n_] := Length[Select[Range[Floor[(n-1)/5]], IntegerQ[(n-3#)/(2#+1)] &]]; Array[a, 100, 0] (* Amiram Eldar, Dec 15 2018 *)
PROG
(PARI) a(n) = sum(k=1, (n-1)/5, frac((n-3*k)/(2*k+1)) == 0); \\ Michel Marcus, Dec 15 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Jun 01 2009, Jun 07 2009
EXTENSIONS
Edited by N. J. A. Sloane, Jun 07 2009
a(44) corrected and more terms from Michel Marcus, Dec 15 2018
STATUS
approved