OFFSET
1,4
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
MATHEMATICA
Accumulate[Table[If[IntegerQ[(n-3)/4], 1, 0], {n, Prime[Range[90]]}]] (* Harvey P. Dale, Mar 07 2018 *)
PROG
(Scheme, with Antti Karttunen's IntSeq-library)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 01 2016
STATUS
approved