OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(8) = ( 7 + 3) * 5 = 10*5 = 50;
a(9) = ( 2 + 4) * 17 = 102;
a(10) = ( 2 + 3) * 2 = 10;
a(11) = (19 + 2) * 2 = 42;
a(12) = ( 5 + 3) * 7 = 56;
a(13) = ( 2 + 11) * 23 = 199;
etc.
MAPLE
g:= proc(n) local L; L:= sort(ifactors(n)[2], (s, t) -> s[1]<t[1]);
L:= map(proc(t) if t[2]=1 then t[1] else op(t) fi end proc, L);
op(L);
end proc:
g(1):= 1:
B:= map(g, [$1..100]):
seq((B[3*i+1]+B[3*i+2])*B[3*i+3], i=0..(nops(B)-3)/3); # Robert Israel, Nov 16 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Nov 13 2008
EXTENSIONS
Corrected (199 replaced by 299, 60 replaced by 30, 549 replaced by 54 etc.) by R. J. Mathar, Apr 18 2010
STATUS
approved