Nothing Special   »   [go: up one dir, main page]

login
Search: a008730 -id:a008730
     Sort: relevance | references | number | modified | created      Format: long | short | data
Number of subsets of {1,2,...,n} such that no two elements differ by 1, 4, or 5.
+10
13
1, 2, 3, 5, 8, 11, 14, 19, 25, 34, 49, 70, 99, 141, 196, 270, 375, 520, 723, 1014, 1420, 1985, 2777, 3874, 5396, 7526, 10496, 14642, 20449, 28555, 39860, 55647, 77660, 108356, 151214, 211028, 294507, 411071, 573763, 800796, 1117679, 1559895, 2177002
OFFSET
0,2
COMMENTS
a(n) is the number of compositions of n+5 into parts 1, 6, 8, 9, 12, 15, 18, 21, ...
Other sequences related to restricted combinations along with the sets of disallowed differences between subset elements: A000045 {1}, A011973 {1}, A006498 {2}, A006500 {3}, A031923 {4}, A000930 {1,2}, A102547 {1,2}, A130137 {1,3}, A263710 {1,4}, A374737 {1,5}, A079972 {2,3}, A224809 {2,4}, A351873 {3,4}, A224810 {3,6}, A224815 {4,8}, A003269 {1,2,3}, A180184 {1,2,3}, A317669 {1,2,4}, A351874 {1,3,4}, A177485 {1,3,5}, A121832 {2,3,4}, A375982 {2,3,5}, A375983 {2,4,5}, A224808 {2,4,6}, A224814 {3,6,9}, A003520 {1,2,3,4}, A375185 {1,2,3,5}, A375186 {1,2,4,5}, A259278 {2,3,4,5}, A224811 {2,4,6,8}, A005708 {1,2,3,4,5}, A276106 {2,3,4,5,6}, A224812 {2,4,6,8,10}, A005709 {1,2,3,4,5,6}, A322405 {2,3,4,5,6,7}, A224813 {2,4,6,8,10,12}, A005710 {1,2,3,4,5,6,7}, A368244 {2,3,4,5,6,7,8}, A000027 {1,2,..}, A269445 {1,2,..}\{12,25,..}, A008730 {1,2,..}\{11,23,..}, A008729 {1,2,..}\{10,21,..}, A008728 {1,2,..}\{9,19,..}, A008727 {1,2,..}\{8,17,..}, A008726 {1,2,..}\{7,15,..}, A008725 {1,2,..}\{6,13,..}, A038718 {1,..,5,7,..}, A008724 {1,2,..}\{5,11,..}, A008732 {1,2,..}\{4,9,..}, A179999 {1,2,3,5,7,..}, A001972 {1,2,..}\{3,7,..}, A001840 {1,2,..}\{2,5,..}, A052955 {1,3,..}, A004277 {2,3,..}, A186384 {1,2,..}\{1,6,..}, A186347 {1,2,..}\{1,5,..}, A339573 {1,2,..}\{1,4,..}, A002620 {2,4,..}, A019442 {3,4,..}, A006501 {3,6,..}, A008233 {4,8,..}, A008382 {5,10,..}, A008881 {6,12,..}, A009641 {7,14,..}, A009694 {8,16,..}, A009714 {9,18,..}, A354600 {10,20,..}.
[Keyword "less", because this comment should be moved to the Index to the OEIS, it is not appropriate here. - N. J. A. Sloane, Oct 25 2024]
LINKS
Michael A. Allen, Combinations without specified separations, Communications in Combinatorics and Optimization (in press).
FORMULA
a(n) = a(n-1) + a(n-3) - a(n-4) + a(n-6) + a(n-8) - a(n-11) for n >= 11.
G.f.: (1 + x + x^2 + x^3 + 2*x^4 + 2*x^5 - x^8 - x^9 - x^10)/(1 - x - x^3 + x^4 - x^6 - x^8 + x^11).
EXAMPLE
For n = 6, the 14 subsets are {}, {1}, {2}, {3}, {1,3}, {4}, {1,4}, {2,4}, {5}, {2,5}, {3,5}, {6}, {3,6}, {4,6}.
The a(4) = 8 compositions of 9 into parts 1, 6, 8, 9, ... are 1+1+1+1+1+1+1+1+1, 1+1+1+6, 1+1+6+1, 1+6+1+1, 6+1+1+1, 1+8, 8+1, 9.
MATHEMATICA
CoefficientList[Series[(1 + x + x^2 + x^3 + 2*x^4 + 2*x^5 - x^8 - x^9 - x^10)/(1 - x - x^3 + x^4 - x^6 - x^8 + x^11), {x, 0, 42}], x]
LinearRecurrence[{1, 0, 1, -1, 0, 1, 0, 1, 0, 0, -1}, {1, 2, 3, 5, 8, 11, 14, 19, 25, 34, 49}, 42]
CROSSREFS
See comments for other sequences related to restricted combinations.
Cf. A376743.
KEYWORD
easy,nonn,less
AUTHOR
Michael A. Allen, Sep 04 2024
STATUS
approved
Partial sums of floor(n/12).
+10
3
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 39, 42, 45, 48, 51, 54, 57, 60, 63, 66, 69, 72, 76, 80, 84, 88, 92, 96, 100, 104, 108, 112, 116, 120, 125, 130, 135, 140, 145, 150, 155
OFFSET
0,14
COMMENTS
Apart from the initial zeros, the same as A008730.
FORMULA
a(12n) = A051866(n).
a(12n+1) = A139267(n).
a(12n+2) = A094159(n).
a(12n+3) = A033579(n).
a(12n+4) = A049452(n).
a(12n+5) = A033581(n).
a(12n+6) = A049453(n).
a(12n+7) = A033580(n).
a(12n+8) = A195319(n).
a(12n+9) = A202804(n).
a(12n+10) = A211014(n).
a(12n+11) = A049598(n).
G.f.: x^12/((1-x)^2*(1-x^12)).
a(0)=0, a(1)=0, a(2)=0, a(3)=0, a(4)=0, a(5)=0, a(6)=0, a(7)=0, a(8)=0, a(9)=0, a(10)=0, a(11)=0, a(12)=1, a(13)=2, a(n)=2*a(n-1)- a(n-2)+ a(n-12)- 2*a(n-13)+ a(n-14). - Harvey P. Dale, Mar 23 2015
EXAMPLE
..0....0....0....0....0....0....0....0....0....0....0....0
..1....2....3....4....5....6....7....8....9...10...11...12
.14...16...18...20...22...24...26...28...30...32...34...36
.39...42...45...48...51...54...57...60...63...66...69...72
.76...80...84...88...92...96..100..104..108..112..116..120
125..130..135..140..145..150..155..160..165..170..175..180
186..192..198..204..210..216..222..228..234..240..246..252
259..266..273..280..287..294..301..308..315..322..329..336
344..352..360..368..376..384..392..400..408..416..424..432
441..450..459..468..477..486..495..504..513..522..531..540
...
MATHEMATICA
Accumulate[Floor[Range[0, 70]/12]] (* or *) LinearRecurrence[{2, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -2, 1}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2}, 70] (* Harvey P. Dale, Mar 23 2015 *)
KEYWORD
nonn,tabf,easy
AUTHOR
Philippe Deléham, Mar 27 2013
STATUS
approved

Search completed in 0.006 seconds