OFFSET
1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..100000
Wikipedia, Arithmetic number
MATHEMATICA
a[n_] := Boole[IntegerQ[Mean[Divisors[n]]]];
Array[a, 105] (* Jean-François Alcover, Dec 02 2021 *)
PROG
(Haskell)
a245656 = (0 ^) . a054025 :: (Integral a, Integral t) => a -> t
(PARI) A245656(n) = !(sigma(n)%numdiv(n)); \\ Antti Karttunen, Dec 24 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jul 28 2014
EXTENSIONS
More terms from Antti Karttunen, Dec 24 2018
STATUS
approved