%I #4 May 21 2012 18:28:53
%S 0,-1,1,-4,2,-3,2,1,-6,4,-3,-2,2,2,-1,-5,4,-3,-2,4,-2,2,2,-5,-2,2,-2,
%T 2,10,-12,2,-4,8,-9,4,0,-2,2,0,-4,8,-9,2,-2,10,-1,-9,-2,2,2,-4,8,-4,0,
%U 0,-4,4,-2,-2,8,4,-11,-2,2,10,-9,4,-8,2,2,2,-2,0,-2,2,2,-4,4
%N Difference between P(n) and nearest integer to P(n-1)^2 / P(n-2), where P(i) =i-th prime.
%t Join[{0},Rest[Last[#]-Round[#[[2]]^2/#[[1]]]&/@Partition[Prime[Range[ 80]],3,1]]] (* _Harvey P. Dale_, May 21 2012 *)
%K sign
%O 3,4
%A Jeremy Newton (joefig(AT)greenville.infi.net)