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!)
A200745 Number of partitions of n into distinct non-divisors of n. 21
1, 0, 0, 0, 0, 1, 0, 2, 1, 2, 2, 6, 1, 9, 5, 6, 5, 20, 4, 28, 7, 19, 24, 55, 6, 51, 45, 49, 27, 136, 16, 180, 50, 117, 143, 146, 28, 403, 242, 260, 68, 668, 91, 852, 246, 260, 649, 1370, 90, 1191, 493, 1110, 634, 2701, 386, 1635, 462, 2160, 2486, 5154, 167 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,8

LINKS

Reinhard Zumkeller and Alois P. Heinz, Table of n, a(n) for n = 0..2000 (terms 0..150 from Reinhard Zumkeller)

EXAMPLE

a(10) = #{7+3, 6+4} = 2;

a(11) = #{9+2, 8+3, 7+4, 6+5, 6+3+2, 5+4+2} = 6;

a(12) = #{7+5} = 1;

a(13) = #{11+2, 10+3, 9+4, 8+5, 8+3+2, 7+6, 7+4+2, 6+5+2, 6+4+3} = 9;

a(14) = #{11+3, 10+4, 9+5, 8+6, 6+5+3} = 5;

a(15) = #{13+2, 11+5, 9+6, 9+4+2, 8+7, 8+5+2} = 6.

MAPLE

a:= proc(n) option remember; local b, l;

      l:= sort([({$1..n} minus numtheory[divisors](n))[]]);

      b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,

             b(n, i-1) +`if`(l[i]>n, 0, b(n-l[i], i-1))))

          end: forget(b):

      b(n, nops(l))

    end:

seq(a(n), n=0..80);  # Alois P. Heinz, Jan 18 2013

MATHEMATICA

a[0] = 1; a[n_] := a[n] = Module[{b, l}, l = Sort[Range[n] ~Complement~ Divisors[n]]; b[m_, i_] := b[m, i] = If[m == 0, 1, If[i < 1, 0, b[m, i - 1] + If[l[[i]] > m, 0, b[m - l[[i]], i - 1]]]]; b[n, Length[l]]];

Table[a[n], {n, 0, 80}] (* Jean-Fran├žois Alcover, Feb 06 2017, after Alois P. Heinz *)

PROG

(Haskell)

a200745 n = p [nd | nd <- [1..n], mod n nd /= 0] n where

   p _  0 = 1

   p [] _ = 0

   p (k:ks) m | m < k = 0 | otherwise = p ks (m - k) + p ks m

CROSSREFS

Cf. A098743, A033630.

Sequence in context: A284002 A093659 A306714 * A067541 A054706 A334500

Adjacent sequences:  A200742 A200743 A200744 * A200746 A200747 A200748

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, Nov 22 2011

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 July 28 00:54 EDT 2021. Contains 346316 sequences. (Running on oeis4.)