OFFSET
1,1
EXAMPLE
14 is a term because 14 = 2*7 and 2+7 = 9 (an odd nonprime);
20 is a term because 20 = 2*2*5 and 2+2+5 = 9,
24 is a term because 24 = 2*2*2*3 and 2+2+2+3 = 9;
26 is a term because 26 = 2*13 and 2+13 = 15 (also an odd nonprime).
MAPLE
ifac := proc (n) local L, x: L := ifactors(n)[2]: map(proc (x) options operator, arrow: seq(x[1], j = 1 .. x[2]) end proc, L) end proc: a := proc (n) local b: b := add(ifac(n)[j], j = 1 .. nops(ifac(n))): if isprime(n) = false and `mod`(b, 2) = 1 and isprime(b) = false then n else end if end proc: seq(a(n), n = 1 .. 280); # Emeric Deutsch, Jan 27 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jan 04 2009
EXTENSIONS
Corrected (removed 81; added 126, 158) and extended by Emeric Deutsch, Jan 27 2009
Example section edited by Jon E. Schoenfield, Jan 15 2019
STATUS
approved