OFFSET
1,2
COMMENTS
Contains all even semiprimes. - Robert Israel, Nov 10 2024
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
For a(13) = 36: 36 = 2^2*3^3; both (2+2+3+3)/4 and (2+3)/2 are not integers.
MAPLE
filter:= proc(n) local F, t, m;
F:= ifactors(n)[2]; m:= nops(F);
not (add(t[1], t=F)/m)::integer and not (add(t[1]*t[2], t=F)/add(t[2], t=F))::integer
end proc:
filter(1):= true:
select(filter, [$1..1000]); # Robert Israel, Nov 10 2024
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Jaroslav Krizek, May 01 2010
EXTENSIONS
a(27) corrected, and more terms from Robert Israel, Nov 10 2024
STATUS
approved