OFFSET
1,3
FORMULA
EXAMPLE
Examples: for n=3 the a(3) = 2 distinct values are 3, 6. The compositions are 1+2, 2+1, and 1+1+1. The values of the lcm are lcm(1,1+2)=3, lcm(2,2+1)=6, and lcm(1,1+1,1+1+1)=6.
MAPLE
Lpsum := proc(L) local ps, k ; ps := [op(1, L)] ; for i from 2 to nops(L) do ps := [op(ps), op(-1, ps)+op(i, L)] ; end do: ps ; end proc:
A190940 := proc(n) local lc, k, c ; lc := {} ; for k from 2 to n do for c in combinat[composition](n, k) do lc := lc union { ilcm( op(Lpsum(c))) }; end do: end do: nops(lc) ; end proc: # R. J. Mathar, Jun 02 2011
MATHEMATICA
a[n_] := LCM @@@ (Accumulate /@ (Permutations /@ Rest[IntegerPartitions[n]] // Flatten[#, 1]&)) // Union // Length; Table[Print[an = a[n]]; an, {n, 1, 24}] (* Jean-François Alcover, Feb 27 2014 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Naohiro Nomoto, May 24 2011
EXTENSIONS
a(12)-a(20) from R. J. Mathar, Jun 02 2011
a(21)-a(24) from Alois P. Heinz, Nov 03 2011
STATUS
approved