login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A088880 Number of different values of A000005(m) when A056239(m) is equal to n. 11
1, 1, 2, 2, 5, 4, 8, 6, 12, 10, 16, 13, 25, 18, 28, 25, 40, 32, 51, 40, 62, 51, 76, 62, 99, 77, 112, 92, 138, 109, 165, 130, 189, 153, 220, 178, 267, 208, 292, 240, 347, 274, 397, 315, 445, 361, 512, 407, 591, 464, 647, 524, 746, 588, 830, 664, 928, 746, 1034 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
COMMENTS
Number of distinct values of Product_{k=1..n} (m(k,P)+1) where m(k,P) is multiplicity of part k in partition P, as P ranges over all partitions of n. - Vladeta Jovovic, May 24 2008
LINKS
MAPLE
multipl := proc(P, p)
local a;
a := 0 ;
for el in P do
if el = p then
a := a+1 ;
end if;
end do;
a ;
end proc:
A088880 := proc(n)
local pro, pa, m, p;
pro := {} ;
for pa in combinat[partition](n) do
m := 1 ;
for p from 1 to n do
m := m*(1+multipl(pa, p)) ;
end do:
pro := pro union {m} ;
end do:
nops(pro) ;
end proc: # R. J. Mathar, Sep 27 2011
# second Maple program
b:= proc(n, i) option remember; `if`(n=0 or i<2, {n+1},
{seq(map(p->p*(j+1), b(n-i*j, i-1))[], j=0..n/i)})
end:
a:= n-> nops(b(n, n)):
seq(a(n), n=0..50); # Alois P. Heinz, Aug 09 2012
MATHEMATICA
b[n_, i_] := b[n, i] = If[n==0 || i<2, {n+1}, Table[b[n-i*j, i-1]*(j+1), {j, 0, n/i}] // Flatten // Union]; a[n_] := Length[b[n, n]]; Table[a[n], {n, 0, 50}] (* Jean-François Alcover, Jan 08 2016, after Alois P. Heinz *)
CROSSREFS
Sequence in context: A081177 A007281 A101085 * A008818 A089599 A206556
KEYWORD
easy,nonn
AUTHOR
Naohiro Nomoto, Nov 28 2003
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 16:28 EDT 2024. Contains 371254 sequences. (Running on oeis4.)