A094900 a(n) = floor( prime(n-1)*A036263(n-2)/ A001223(n-1)).

1, 0, 3, -11, 6, -17, 9, 7, -58, 20, -19, -41, 21, 15, 0, -118, 40, -34, -71, 48, -40, 27, 22, -97, -101, 51, -107, 54, 80, -318, 43, -274, 111, -596, 100, 0, -82, 55, 0, -358, 144, -764, 96, -197, 165, 0, -446, -227, 114, 77, -478, 192, -168, 0, 0, -538, 180, -139

Offset

3,3

Links

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

Mathematica

Table[Abs[Floor[Prime[n-1]*(Prime[n]-2*Prime[n-1]+Prime[n-2])/(Prime[n]-Prime[n-1])]], {n, 3, 203}]

Crossrefs

Sequence in context: A308971 A120299 A341217 * A196171 A288902 A288832

Adjacent sequences: A094897 A094898 A094899 * A094901 A094902 A094903

Keyword

sign,less

Author

Roger L. Bagula, Jun 14 2004

Status

approved