OFFSET
1,1
COMMENTS
For these numbers hold that both arithmetic means of distinct and all prime factors are integers or only one of these means is an integer.
Includes all prime powers and odd semiprimes. - Robert Israel, Nov 10 2024
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local F, t;
F:= ifactors(n)[2];
(add(t[1], t=F)/nops(F))::integer or (add(t[1]*t[2], t=F)/add(t[2], t=F))::integer
end proc:
select(filter, [$2..100]); # Robert Israel, Nov 10 2024
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Jaroslav Krizek, May 09 2010
EXTENSIONS
a(49) corrected by Robert Israel, Nov 10 2024
STATUS
approved