OFFSET
1
LINKS
EXAMPLE
Prime(10) = 29 = 2^2 + 3^2 + 4^2, so a(10) = 1.
MATHEMATICA
a[n_] := If[n == 2, 1, If[Mod[Prime[n], 8] == 7, 0, 1]]; Array[a, 100]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jean-François Alcover, Mar 09 2015
STATUS
approved