RosettaCodeData/Task/Pathological-floating-point-problems/PARI-GP/pathological-floating-point-problems-1.parigp

V(n,a=2,v=-4.)=if(n < 3,return(v));V(n--,v,111-1130/v+3000/(v*a))