%I #26 Dec 18 2022 07:06:27
%S 0,0,3,5,-4,5,7,0,1,-5,3,5,0,-5,4,5,-1,1,1,-5,5,2,3,0,4,0,-1,-6,3,2,0,
%T 0,-5,5,2,0,-5,5,1,0,0,0,-5,5,0,0,1,1,1,-1,2,1,0,2,2,0,-5,5,1,0,-5,5,
%U 1,0,0,1,-5,6,0
%N a(n) = floor(10*(A064413(n) - n)/n).
%t a = Nest[Block[{lst = Last[#]}, Join[#, Cases[Complement[Range[lst^2], #], n_ /; GCD[lst, n] > 1, 1, 1]]] &, {1, 2}, 123]; (* Peter Pein's EKG code *)
%t b = Table[Floor[10*(a[[n]] - n)/n], {n, 1, Length[a]}]
%Y Cf. A064413.
%K sign,less
%O 1,3
%A _Roger L. Bagula_, Mar 12 2012