OFFSET
1,3
COMMENTS
a(n) = (number of pairs (i,j) in [1..n] X [1..n] with integral arithmetic mean) - (number of pairs (i,j) in [1..n] X [1..n] with integral geometric mean).
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
PROG
(Python)
from sympy.ntheory.primetest import is_square
def A362934(n): return ((n-1)**2>>1)-(sum(1 for x in range(1, n+1) for y in range(1, x) if is_square(x*y))<<1) # Chai Wah Wu, Aug 29 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 28 2023
STATUS
approved