login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A068348 Number of partitions of A066926(n) into x_i parts. 1
1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 1, 1, 6, 2, 3, 9, 1, 2, 8, 5, 3, 6, 7, 8, 71, 1, 5, 4, 55, 4, 4, 4, 33, 3, 81, 1, 295, 42, 3, 5, 2, 4, 101, 122, 21, 11, 4, 5, 1442, 3, 457, 8, 89, 164, 6, 1, 526, 3, 676, 1, 7, 4, 333, 1, 1, 85, 1, 91, 139, 2504, 17, 4, 2, 50 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,9

LINKS

Giovanni Resta, Table of n, a(n) for n = 1..200

EXAMPLE

a(9) = 2 because 36 = 6+6+6+6+6+6 = 3+3+6+12+12 has two partitions into a set of x_i.

a(10) = 3 because 40 = 4+4+8+8+8+8 = 4+5+5+8+8+10 = 5+5+5+5+10+10 has three partitions of that kind. - R. J. Mathar, Jul 12 2013

MAPLE

A068348 := proc(n)

    local a, p, xi, rep ;

    a := 0 ;

    for p in combinat[partition](n) do

        rep := true ;

        for xi in p do

            if not type(n/xi, 'integer') then

                rep := false;

            end if;

        end do:

        if rep then

            q := n*add(1/xi, xi=p) ;

            if q =n then

                a := a+1 ;

            end if;

        end if;

    end do:

    a ;

end proc:

for n from 1 do

    isA068348 := A068348(n) ;

    if isA068348 > 0 then

        print(isA068348) ;

    end if:

end do: # R. J. Mathar, Jul 12 2013

CROSSREFS

Sequence in context: A011151 A140878 A182933 * A308290 A204167 A217897

Adjacent sequences:  A068345 A068346 A068347 * A068349 A068350 A068351

KEYWORD

nonn

AUTHOR

Naohiro Nomoto, Feb 28 2002

EXTENSIONS

a(18)-a(74) from Giovanni Resta, Feb 23 2014

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 27 13:18 EST 2020. Contains 332306 sequences. (Running on oeis4.)