OFFSET
0,4
FORMULA
a(n) =floor[A005473(n)/24]
EXAMPLE
a(2)=1 since 29 is a prime which is four more than a square and floor[29/24]=1
MATHEMATICA
Join[{0}, Floor[#/24]&/@Select[Prime[Range[10000]], #-Floor[Sqrt[#]]^2 == 4&]] (* Harvey P. Dale, Oct 25 2011 *)
With[{nn=400}, Floor[#/24]&/@Select[Range[nn]^2+4, PrimeQ]] (* Harvey P. Dale, Dec 02 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, Jul 06 2000
STATUS
approved