OFFSET
1,1
LINKS
EXAMPLE
12 is in the sequence because 12 has 6 divisors {1, 2, 3, 4, 6, 12} among which 3 are prime powers {2, 3, 4} and (2 + 3 + 4)/3 = 3 is integer.
MATHEMATICA
fQ[n_] := IntegerQ@Mean@Select[Divisors@n, PrimePowerQ]; Select[Range@140, fQ]
PROG
(PARI) isok(m) = my(vd = select(isprimepower, divisors(m))); #vd && !(vecsum(vd) % #vd); \\ Michel Marcus, Apr 28 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, May 17 2017
STATUS
approved