login
a(n) = floor(10*(A064413(n) - n)/n).
0

%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