A350840 Number of strict integer partitions of n with no adjacent parts of quotient 2.
1, 1, 1, 1, 2, 3, 2, 4, 5, 6, 7, 8, 10, 13, 17, 19, 22, 25, 30, 35, 43, 52, 60, 70, 81, 93, 106, 122, 142, 166, 190, 216, 249, 287, 325, 371, 420, 479, 543, 617, 695, 784, 888, 1000, 1126, 1266, 1420, 1594, 1792, 2008, 2247, 2514, 2809, 3135, 3496, 3891, 4332
Offset: 0
Keywords
Examples
The a(1) = 1 through a(13) = 13 partitions (A..D = 10..13): 1 2 3 4 5 6 7 8 9 A B C D 31 32 51 43 53 54 64 65 75 76 41 52 62 72 73 74 93 85 61 71 81 82 83 A2 94 431 432 91 92 B1 A3 531 532 A1 543 B2 541 641 651 C1 731 732 643 741 652 831 751 832 931 5431
Crossrefs
Programs
-
Mathematica
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&And@@Table[#[[i-1]]/#[[i]]!=2,{i,2,Length[#]}]&]],{n,0,30}]