OFFSET
1,1
MATHEMATICA
f[n_] = If[Prime[n + 1]^2 - Prime[n]*Prime[n + 2] > 0, If[Mod[Prime[n]*Sqrt[5], 1] >= 0.5, 0, 1], If[Mod[Prime[n]*Sqrt[7], 1] >= 0.5, 2, 3]];
Table[f[n], {n, 1, 100}]
CROSSREFS
KEYWORD
nonn,uned,less
AUTHOR
Roger L. Bagula, Jul 30 2008
STATUS
approved