%I #25 Feb 25 2023 08:23:45
%S 0,0,0,1,0,0,0,1,2,0,0,1,0,0,0,3,0,2,0,1,0,0,0,1,4,0,2,1,0,0,0,3,0,0,
%T 0,5,0,0,0,1,0,0,0,1,2,0,0,3,6,4,0,1,0,2,0,1,0,0,0,1,0,0,2,7,0,0,0,1,
%U 0,0,0,5,0,0,4,1,0,0,0,3,8,0,0,1,0,0,0,1,0,2,0,1,0,0,0,3,0,6,2,9,0,0,0,1,0
%N Number of pairs of numbers (r,s) each less than n such that (r,s,n) is in geometric progression.
%C Also, the number of integers k in {1,2,...,n-1} such that k*n is square. - _John W. Layman_, Sep 08 2011
%H Reinhard Zumkeller, <a href="/A057918/b057918.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A000188(n) - 1.
%F a(A005117(n)) = 0; a(A013929(n)) > 0; A008966(n) = A000007(a(n)); a(A133466(n)) = 1; a(A195085(n)) = 2. - _Reinhard Zumkeller_, Mar 27 2012
%e a(72)=5 since (2,12,72), (8,24,72), (18,36,72), (32,48,72), (50,60,72) are the possible three term geometric progressions.
%o (Haskell)
%o a057918 n = sum $ map ((0 ^) . (`mod` n) . (^ 2)) [1..n-1]
%o -- _Reinhard Zumkeller_, Mar 27 2012
%Y Cf. A000188, A005117, A133466.
%Y Cf. A132345 (partial sums).
%K easy,nonn
%O 1,9
%A _Henry Bottomley_, Nov 22 2000