%I #10 Nov 30 2020 11:06:01
%S 1,0,3,-11,6,-17,9,7,-58,20,-19,-41,21,15,0,-118,40,-34,-71,48,-40,27,
%T 22,-97,-101,51,-107,54,80,-318,43,-274,111,-596,100,0,-82,55,0,-358,
%U 144,-764,96,-197,165,0,-446,-227,114,77,-478,192,-168,0,0,-538,180,-139
%N a(n) = floor( prime(n-1)*A036263(n-2)/ A001223(n-1)).
%t Table[Abs[Floor[Prime[n-1]*(Prime[n]-2*Prime[n-1]+Prime[n-2])/(Prime[n]-Prime[n-1])]], {n, 3, 203}]
%K sign,less
%O 3,3
%A _Roger L. Bagula_, Jun 14 2004
|