A028947 Difference between P(n) and nearest integer to P(n-1)^2 / P(n-2), where P(i) =i-th prime.

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, 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, 0, -4, 4, -2, -2, 8, 4, -11, -2, 2, 10, -9, 4, -8, 2, 2, 2, -2, 0, -2, 2, 2, -4, 4

Offset

3,4

Links

Table of n, a(n) for n=3..80.

Mathematica

Join[{0}, Rest[Last[#]-Round[#[[2]]^2/#[[1]]]&/@Partition[Prime[Range[ 80]], 3, 1]]] (* Harvey P. Dale, May 21 2012 *)

Crossrefs

Sequence in context: A335381 A018845 A333215 * A068152 A278970 A182199

Adjacent sequences: A028944 A028945 A028946 * A028948 A028949 A028950

Keyword

sign

Author

Jeremy Newton (joefig(AT)greenville.infi.net)

Status

approved