OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
a = Table[Mod[Prime[n + 2]*Prime[n] - Prime[n + 1]^2, 3], {n, 1, 200}]
Mod[#[[3]]#[[1]]-#[[2]]^2, 3]&/@Partition[Prime[Range[110]], 3, 1] (* Harvey P. Dale, Oct 03 2015 *)
PROG
(PARI) a(n) = (prime(n + 2)*prime(n) - prime(n + 1)^2) % 3; \\ Michel Marcus, Apr 21 2017
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula, May 13 2005
STATUS
approved