OFFSET
1,1
COMMENTS
6*k appears for the form of a(n) for n > 1.
What is the most repeated value of a(n)?
See A270535 for the position of 0's in this sequence.
EXAMPLE
MATHEMATICA
s = Select[Prime@Range[10^6], PrimeQ[# + 2] &]; Table[s[[n]] - s[[n + 1]] - s[[n + 2]] + s[[n + 3]], {n, 74}] (* Michael De Vlieger, Mar 19 2016, after Robert G. Wilson v at A001359 *)
PROG
(PARI) t(n, p=3) = { while( p+2 < (p=nextprime( p+1 )) || n-->0, ); p-2}
a(n) = t(n) + t(n+3) - t(n+1) - t(n+2);
for(n=1, 200, print1(a(n), ", "));
CROSSREFS
KEYWORD
sign
AUTHOR
Altug Alkan, Mar 18 2016
STATUS
approved