OFFSET
1,6
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
MATHEMATICA
a[n_]:=Length[Select[Prime[Range[n]], IntegerQ[(#-1)/4] &]]; Array[a, 84] (* Stefano Spezia, May 01 2025 *)
PROG
(Scheme) ;; With Antti Karttunen's IntSeq-library.
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 01 2016
STATUS
approved
