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

Author

Roger L. Bagula, Jun 14 2004

Keywords

• sign
• less

Programs

Mathematica

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