OFFSET
1,1
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..65
EXAMPLE
Prime factors of 270 are 2, 3^3, 5; therefore (2/(2+1)+3*3/(3+1)+5/(5+1))/(2/(2+1)*(3/(3+1))^3*5/(5+1)) = 16.
MAPLE
with(numtheory); ListA227248:=proc(q) local a, d, n, p;
for n from 2 to q do if not isprime(n) then p:=ifactors(n)[2];
a:=add((op(1, d)/(op(1, d)+1))*op(2, d), d=p)/mul((op(1, d)/(op(1, d)+1))^op(2, d), d=p);
if type(a, integer) then print(n); fi; fi;
od; end: ListA227248(10^10);
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, Jul 04 2013
STATUS
approved