cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-20 of 32 results. Next

A035615 Number of winning length n strings with a 2-symbol alphabet in "same game".

Original entry on oeis.org

1, 0, 2, 2, 6, 12, 26, 58, 126, 278, 602, 1300, 2774, 5878, 12350, 25778, 53470, 110332, 226610, 463602, 945214, 1921550, 3896642, 7885092, 15927086, 32121582, 64697726, 130166378, 261637446, 525478668, 1054673162, 2115601450, 4241716734, 8501080838, 17031744170
Offset: 0

Views

Author

Keywords

Comments

Strings that can be reduced to null string by repeatedly removing an entire run of two or more consecutive symbols.

Examples

			11011001 is a winning string since 110{11}001 -> 11{000}1 -> {111} -> null.
		

Crossrefs

See A309874 for the losing strings.
For some similar questions in base 10, see A323830, A323831, A320487. - N. J. A. Sloane, Feb 04 2019
Row b=2 of A323844.

Programs

  • Mathematica
    Join[{1}, Rest[CoefficientList[Series[x (2x^6 - 6x^5 + 8x^4 + 2x^3 - 6x^2 + 2x)/((1 - x^2)(1 - 2x)(1 - x - x^2)^2), {x, 0, 40}], x]]] (* or *) Join[{1}, LinearRecurrence[{4, -2, -8, 6, 6, -3, -2}, {0, 2, 2, 6, 12, 26, 58}, 40]] (* Harvey P. Dale, Sep 26 2012 *)
  • PARI
    a(n)=if(n, ([0,1,0,0,0,0,0; 0,0,1,0,0,0,0; 0,0,0,1,0,0,0; 0,0,0,0,1,0,0; 0,0,0,0,0,1,0; 0,0,0,0,0,0,1; -2,-3,6,6,-8,-2,4]^(n-1)*[0;2;2;6;12;26;58])[1,1], 1) \\ Charles R Greathouse IV, Jun 15 2015

Formula

G.f.: x(2x^6 - 6x^5 + 8x^4 + 2x^3 - 6x^2 + 2x)/[(1 - x^2)(1 - 2x)(1 - x - x^2)^2] (conjectured). - Ralf Stephan, May 11 2004. Established by Burns and Purcell - see link.
a(0) = 1, a(1) = 0, a(2) = 2, a(3) = 2, a(4) = 6, a(5) = 12, a(6) = 26, a(7) = 58, a(n) = 4*a(n-1) - 2*a(n-2) - 8*a(n-3) + 6*a(n-4) + 6*a(n-5) - 3*a(n-6) - 2*a(n-7). - Harvey P. Dale, Sep 26 2012
a(n) = 2^n - 2 * n * Fibonacci(n-2) - (-1)^n - 1 for n >= 2 (proved by Burns and Purcell (2005, 2007)). - Petros Hadjicostas, Jul 04 2018

Extensions

More terms from Naohiro Nomoto, Jul 09 2001
Further terms from Sascha Kurz, Oct 19 2001
a(27)-a(36) from Robert Price, Apr 08 2019

A319416 Cuts-resistance of n: number of applications of Lernormand's "raboter" map needed to transform the binary expansion of n to the empty string.

Original entry on oeis.org

1, 1, 1, 2, 2, 1, 2, 3, 3, 2, 1, 2, 2, 2, 3, 4, 4, 3, 2, 2, 2, 1, 2, 3, 3, 2, 2, 3, 3, 3, 4, 5, 5, 4, 3, 3, 3, 2, 2, 3, 3, 2, 1, 2, 2, 2, 3, 4, 4, 3, 2, 2, 2, 2, 3, 4, 3, 3, 3, 4, 4, 4, 5, 6, 6, 5, 4, 4, 4, 3, 3, 3, 4, 3, 2, 2, 2, 2, 3, 4, 4, 3, 2, 2, 2, 1, 2
Offset: 0

Views

Author

N. J. A. Sloane, Sep 21 2018

Keywords

Comments

Here we are using Lenormand's "raboter" map in a stricter sense than in A318921 and A319419. If S is a binary string with successive runs of lengths b,c,d,e,..., the "raboter" map sends S to the binary string with successive runs of lengths b-1,c-1,d-1,e-1,... Runs of length 0 are omitted (they are indicated by dots in the examples below).
To get a(n), start with S equal to the binary expansion of n beginning with the most significant bit, and keep applying the map until we reach the empty string.
After the first step, the string may start with a string of 0's: this is acceptable because we are working with strings, not binary expansions of numbers.
For example, 34 = 100010 -> .00.. = 00 -> 0. = 0 -> . (the empty string), taking 3 steps, so a(34) = 3.
Note: this is not the same as the number of applications of the map k -> A318921(k) needed to reduce the binary expansion of n to zero (because A318921 does not distinguish between 0 and the empty string).
This is also not the same as the number of applications of the map k -> A319419(k) needed to reduce the binary expansion of n to -1 (because A319419 does not distinguish between a string of 0's and a single 0).
The value k appears for the first time when n = 2^k - 1.

Examples

			n: repeatedly applying the map / number of steps = a(n)
0: 0 -> . / 1
1: 1 -> . / 1
2: 10 -> . / 1
3: 11 -> 1 -> . / 2
4: 100 -> 0 -> . / 2
5: 101 -> . / 1
6: 110 -> 1 -> . / 2
7: 111 -> 11 -> 1 -> . / 3
8: 1000 -> 00 -> 0 -> . / 3
9: 1001 -> 0 -> . / 2
10: 1010 -> . / 1
11: 1011 -> 1 -> . / 2
12: 1100 -> 10 -> . / 2
...
		

Crossrefs

Positions of 1's are A000975.
Positions of 2's are A329862.
The version for runs-resistance is A318928.
The version for compositions is A329861.
Binary words counted by cuts-resistance are A319421 or A329860.

Programs

  • Mathematica
    degdep[q_]:=Length[NestWhileList[Join@@Rest/@Split[#]&,q,Length[#]>0&]]-1;
    Table[degdep[IntegerDigits[n,2]],{n,0,50}] (* Gus Wiseman, Nov 25 2019 *)
  • PARI
    a(n) = my (b=binary(n), w=#b); for (k=1, oo, my (ww=0); for (i=2, w, if (b[i-1]==b[i], b[ww++]=b[i])); if (ww==0, return (k), w=ww)) \\ Rémy Sigrist, Sep 23 2018

Extensions

More terms from Rémy Sigrist, Sep 23 2018

A320486 Keep just the digits of n that appear exactly once; write 0 if all digits disappear.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 0, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 0, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 0, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 0, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 0, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 0, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 0, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 0, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 0, 1, 0, 102, 103, 104, 105, 106, 107, 108, 109, 0, 0, 2, 3, 4, 5, 6, 7, 8, 9, 120, 2, 1, 123, 124, 125, 126, 127, 128, 129, 130, 3
Offset: 0

Views

Author

N. J. A. Sloane, Oct 24 2018

Keywords

Comments

Digits that appear more than once in n are erased. Leading zeros are erased unless the result is 0. If all digits are erased, we write 0 for the result (A320485 is another version, which uses -1 for the empty string).
More than the usual number of terms are shown in order to reach some interesting examples.
a(n) = 0 mostly. - David A. Corneth, Oct 24 2018
The number of d-digit numbers n for which a(n) > 0 is at most d*9^d, so in this sense most a(n) are 0. - Robert Israel, Oct 24 2018
The set of numbers with the property that their digits appear at least twice is of asymptotic density 1 (and the set of numbers that have a digit that occurs only once is of density 0), so in that sense it is rather exceptional for large n to have a(n) > 0. - M. F. Hasler, Oct 24 2018

Examples

			1231 becomes 23, 1123 becomes 23, 11231 becomes 23, and 11023 becomes 23 (as we don't accept leading zeros). Note that 112323 disappears immediately and we get 0.
101, 110, 11000, 10001 all become 0.
		

References

  • Eric Angelini, Posting to Sequence Fans Mailing List, Oct 24 2018

Crossrefs

See A320485 for a different version.

Programs

  • Maple
    f:= proc(n) local F,S;
      F:= convert(n,base,10);
      S:= select(t -> numboccur(t,F)>1, [$0..9]);
      if S = {} then return n fi;
      F:= subs(seq(s=NULL,s=S),F);
      add(F[i]*10^(i-1),i=1..nops(F))
    end proc:
    map(f, [$0..200]); # Robert Israel, Oct 24 2018
  • Mathematica
    Table[If[(c=Select[b=IntegerDigits[n],Count[b,#]==1&])=={},0,FromDigits@c],{n,0,131}] (* Giorgos Kalogeropoulos, May 09 2021 *)
    d1[n_]:=Module[{idn=IntegerDigits[n]},FromDigits[If[DigitCount[n,10,#]>1,Nothing,#]&/@ idn]]; Array[d1,150,0] (* Harvey P. Dale, Jun 23 2023 *)
  • PARI
    a(n) = {my(d=digits(n), v = vector(10), res = 0); for(i=1,#d, v[d[i]+1]++); for(i=1,#d,if(v[d[i]+1]==1, res=10*res+d[i]));res}
    
  • PARI
    A320486(n,D=digits(n))=fromdigits(select(d->#select(t->t==d,D)<2,D)) \\ M. F. Hasler, Oct 24 2018
    
  • Python
    def A320486(n):
        return int('0'+''.join(d if str(n).count(d) == 1 else '' for d in str(n))) # Chai Wah Wu, Nov 19 2018

A156253 Least k such that A054353(k) >= n.

Original entry on oeis.org

1, 2, 2, 3, 3, 4, 5, 6, 6, 7, 8, 8, 9, 9, 10, 11, 11, 12, 12, 13, 14, 15, 15, 16, 17, 18, 18, 19, 19, 20, 21, 21, 22, 23, 24, 24, 25, 26, 26, 27, 27, 28, 29, 30, 30, 31, 32, 33, 33, 34, 35, 35, 36, 36, 37, 38, 38, 39, 39, 40, 41, 42, 42, 43, 44, 44, 45, 45, 46, 47, 47, 48, 49, 50
Offset: 1

Views

Author

Benoit Cloitre, Feb 07 2009

Keywords

Comments

a(n)=1 plus the number of symbol changes in the first n terms of A000002. - Jean-Marc Fedou and Gabriele Fici, Mar 18 2010
From N. J. A. Sloane, Nov 12 2018: (Start)
This seems to be A001462 rewritten so the run lengths are given by A000002. The companion sequence, A000002 rewritten so the run lengths are given by A001462, is A321020.
Note that Kolakoski's sequence A000002 and Golomb's sequence A001462 have very similar definitions, although the asymptotic behavior of A001462 is well-understood, while that of A000002 is a mystery. The asymptotic behavior of the two hybrids A156253 and A321020 might be worth investigating. (End)
To expand upon N. J. A. Sloane's comments, it's worth noting that Golomb's sequence has a formula from Colin Mallows: g(n) = g(n-g(g(n-1))) + 1, which closely resembles a(n) = a(n-gcd(a(a(n-1)),2)) + 1. - Jon Maiga, May 16 2023

Crossrefs

Programs

  • Mathematica
    a2 = {1, 2, 2}; Do[ a2 = Join[a2, {1 + Mod[n - 1, 2]}], {n, 3, 80}, {i, 1, a2[[n]]}]; a3 = Accumulate[a2]; a[1] = 1; a[n_] := a[n] = For[k = a[n - 1], True, k++, If[a3[[k]] >= n, Return[k]]]; Table[a[n], {n, 1, 80}] (* Jean-François Alcover, Jun 18 2013 *)
    a[1] = 1;
    a[n_]:=a[n]=a[n-GCD[a[a[n - 1]], 2]]+1
    Array[a, 100] (* Jon Maiga, May 16 2023 *)

Formula

Conjecture: a(n) should be asymptotic to 2n/3.
Length of n-th run of the sequence = A000002(n). - Benoit Cloitre, Feb 19 2009
Conjecture: a(n) = (a(a(n-1)) mod 2) + a(n-2) + 1. - Jon Maiga, Dec 09 2021
a(n) = a(n-gcd(a(a(n-1)), 2)) + 1. - Jon Maiga, May 16 2023

A319421 Triangle read by rows: T(n,k) (1 <= k <= n) = one-half of the number of binary vectors of length n and cuts-resistance k.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 4, 2, 1, 1, 6, 6, 2, 1, 1, 10, 11, 7, 2, 1, 1, 14, 24, 14, 8, 2, 1, 1, 22, 42, 35, 16, 9, 2, 1, 1, 30, 81, 68, 45, 18, 10, 2, 1, 1, 46, 138, 149, 89, 55, 20, 11, 2, 1, 1, 62, 250, 282, 216, 110, 66, 22, 12, 2, 1, 1, 94, 419, 577, 422, 285, 132, 78, 24, 13, 2, 1
Offset: 1

Views

Author

N. J. A. Sloane, Sep 23 2018

Keywords

Comments

Cuts-resistance is defined in A319416.
This triangle summarizes the data shown in A319420.
Conjecture (Sloane): Sum_{i = 1..n} i * T(n,i) = A189391(n).

Examples

			Triangle begins:
   1
   1   1
   1   2   1
   1   4   2   1
   1   6   6   2   1
   1  10  11   7   2   1
   1  14  24  14   8   2   1
   1  22  42  35  16   9   2   1
   1  30  81  68  45  18  10   2   1
   1  46 138 149  89  55  20  11   2   1
   1  62 250 282 216 110  66  22  12   2   1
   1  94 419 577 422 285 132  78  24  13   2   1
Lenormand gives first 15 rows.
For example, the "1,2,1" row here refers to the 8 vectors of length 3. There are 2 vectors of cuts-resistance 1, namely 010 and 101 (see A319416), 4 vectors of cuts-resistance 2 (100,011,001,110), and 2 of cuts-resistance 3 (000 and 111). Halving these counts we get 1,2,1
		

Crossrefs

Row sums are A000079.
Column k = 2 appears to be A027383.
The version for runs-resistance is A319411 or A329767.
The version for compositions is A329861.
The cuts-resistance of the binary expansion of n is A319416(n).

Programs

  • Mathematica
    degdep[q_]:=Length[NestWhileList[Join@@Rest/@Split[#]&,q,Length[#]>0&]]-1;
    Table[Length[Select[Tuples[{0,1},n],First[#]==1&°dep[#]==k&]],{n,8},{k,n}] (* Gus Wiseman, Nov 25 2019 *)

Formula

T(n,k) = A329860(n,k)/2. - Gus Wiseman, Nov 25 2019

A320485 Keep just the digits of n that appear exactly once; write -1 if all digits disappear.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, -1, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, -1, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, -1, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, -1, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, -1, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, -1, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, -1, 1, 0, 102, 103, 104, 105, 106, 107, 108, 109, 0, -1, 2, 3, 4, 5, 6, 7, 8, 9, 120, 2, 1, 123, 124, 125, 126, 127, 128, 129, 130, 3
Offset: 0

Views

Author

N. J. A. Sloane, Oct 24 2018

Keywords

Comments

Digits that appear more than once in n are erased. Leading zeros are erased unless the result is 0. If all digits are erased, we write -1 for the result.
The map n -> a(n) was invented by Eric Angelini and described in a posting to the Sequence Fans Mailing List on Oct 24 2018.
More than the usual number of terms are shown in order to reach some interesting examples.
a(n) = -1 mostly. - David A. Corneth, Oct 24 2018

Examples

			1231 becomes 23, 1123 becomes 23, 11231 becomes 23, and 11023 becomes 23 (as we don't accept leading zeros). Note that 112323 disappears immediately and we get -1.
101 and 110 become 0 while 11000 and 10001 become -1.
		

References

  • Eric Angelini, Posting to Sequence Fans Mailing List, Oct 24 2018

Crossrefs

See A320486 for another version.

Programs

  • Maple
    f:= proc(n) local F,S;
      F:= convert(n,base,10);
      S:= select(t -> numboccur(t,F)>1, [$0..9]);
      if S = {} then return n fi;
      F:= subs(seq(s=NULL,s=S),F);
      if F = [] then -1
      else add(F[i]*10^(i-1),i=1..nops(F))
      fi
    end proc:
    map(f, [$0..200]); # Robert Israel, Oct 24 2018
  • Mathematica
    Array[If[# == {}, -1, FromDigits@ #] &@ Map[If[#[[-1]] > 1, -1, #[[1]] ] /. -1 -> Nothing &, Tally@ IntegerDigits[#]] &, 131] (* Michael De Vlieger, Oct 24 2018 *)
  • PARI
    a(n) = {my(d=digits(n), v = vector(10), res = 0, t = 0); for(i=1, #d, v[d[i]+1]++); for(i=1, #d, if(v[d[i]+1]==1, t = 1; res=10 * res + d[i])); res - !t + !n} \\ David A. Corneth, Oct 24 2018
    
  • Python
    def A320485(n):
        return (lambda x: int(x) if x != '' else -1)(''.join(d if str(n).count(d) == 1 else '' for d in str(n))) # Chai Wah Wu, Nov 19 2018

Formula

From Rémy Sigrist, Oct 24 2018: (Start)
a(n) = n iff n belong to A010784.
a(n) <= 9876543210 with equality iff n = 9876543210.
(End)
If n > 9876543210, then a(n) < n. If a(n) < n, then a(n) <= 99n/1000. - Chai Wah Wu, Oct 24 2018

A319018 Number of ON cells after n generations of two-dimensional automaton based on knight moves (see Comments for definition).

Original entry on oeis.org

0, 1, 9, 17, 57, 65, 121, 145, 265, 273, 329, 377, 617, 657, 865, 921, 1201, 1209, 1265, 1313, 1553, 1617, 2001, 2121, 2689, 2745, 3009, 3153, 3841, 3953, 4513, 4649, 5297, 5305, 5361, 5409, 5649, 5713, 6097, 6233, 6881, 6953, 7353, 7585, 8713, 8913, 9961
Offset: 0

Views

Author

Rémy Sigrist, Sep 08 2018

Keywords

Comments

The cells are the squares of the standard square grid.
Cells are either OFF or ON, once they are ON they stay ON forever.
Each cell has 8 neighbors, the cells that are a knight's move away.
We begin in generation 1 with a single ON cell.
A cell is turned ON at generation n+1 if it has exactly one ON neighbor at generation n.
(Since cells stay ON, an equivalent definition is that a cell is turned ON at generation n+1 if it has exactly one neighbor that has been turned ON at some earlier generation. - N. J. A. Sloane, Dec 19 2018)
This sequence has similarities with A151725: here we use knight moves, there we use king moves.
This is a knight's-move version of the Ulam-Warburton cellular automaton (see A147562). - N. J. A. Sloane, Dec 21 2018
The structure has dihedral D_8 symmetry (quarter-turn rotations plus reflections, which generate the dihedral group D_8 of order 8), so A319019 is a multiple of 8 (compare A322050). - N. J. A. Sloane, Dec 16 2018
From Omar E. Pol, Dec 16 2018: (Start)
For n >> 1 (for example: n = 257) the structure of this sequence is similar to the structure of both A194270 and of A220500, the D-toothpick cellular automata of the second kind and of the third kind respectively. The animations of both CAs are in the Applegate's movie version.
Also, the graph of A319018 is a bit similar to the graph of A245540, which is essentially a 45-degree-3D-wedge of A245542 (a pyramid) which is the partial sums of A160239 (Fredkin's replicator). See "Plot 2": A319018 vs. A245540. (End)
The conjecture that A322050(2^k+1)=1 also suggests a fractal geometry. Let P_k be the associated set of eight points. It appears that P_k may be written as the intersection of four fixed lines, y = +-2*x and x = +-2*y, with a circle, x^2 + y^2 = 5*4^k (see linked image "Log-Periodic Coloring"). - Bradley Klee, Dec 16 2018
In many of these toothpick or cellular automata sequences it is common to see graphs which look like some version of the famous blancmange curve (also known as the Takagi curve). I expect that is what we are seeing when we look at the graph of A322049, although we probably need to go a lot further out before the true shape becomes apparent. - N. J. A. Sloane, Dec 17 2018
The graph of A322049 (related to first differences of this sequence) appears to have rather a self-similar structure which repeats at powers of 2, and more specifically at 2^10 = 1024. There is no central symmetry or continuity, which are characteristic properties of the blancmange curve. - M. F. Hasler, Dec 28 2018
The 8 points added in generation n = 2^k + 1 are P_k = 2^k*K where K = {(+-2, +-1), (+-1, +-2)} is the set of the initial 8 knight moves. So P_k is indeed the intersection of the rays of slope +-1/2 resp. +-2 and a circle of radius 2^k*sqrt(5). In the subsequent generation n = 2^k + 2, the new cells switched on are exactly the 7 "new" knight move neighbors of these 8 cells, (P_k + K) \ (2^k - 1)*K. The 8th neighbor, lying one knight move closer to the origin, has been switched on in generation 2^k, together with an octagonal "wall" consisting of every other cell on horizontal and vertical segments between these points (2^k - 1)*K, and all cells on the diagonal segments between these points, as well as 2 more diagonals just next to these (on the inner side) and shorter by 2 cells (so they are empty for k = 1). This yields 4*(2 + (2^k - 2)*(1+3)) new ON cells in generation 2^k, plus 8*(2^(k-1) - 2) more new ON cells on horizontal, vertical and diagonal lines 4 units closer to the origin for k > 2, and similar additional terms for k > 4 etc. - M. F. Hasler, Dec 28 2018

Crossrefs

Cf. A151725, A319019 (first differences).
For further analysis see A322048, A322049, A322050, A322051.
See A322055, A322056 for a variation.

Programs

Formula

No formula or recurrence is presently known. See A322049 for a promising attack. - N. J. A. Sloane, Dec 16 2018
a(n) = Sum_{k=1..n} A319019(n) = 1 + 8*Sum_{k=2..n} A322050(n) for n >= 1. In particular, a(n) - 1 is divisible by 8 for all n >= 1. - M. F. Hasler, Dec 28 2018

Extensions

Deleted an incorrect illustration. - N. J. A. Sloane, Dec 17 2018

A323454 Minimal number of steps to reach n from 1 using "Choix de Bruxelles", version 2 (cf. A323460), or -1 if n cannot be reached.

Original entry on oeis.org

0, 1, 11, 2, -1, 10, 9, 3, 9, -1, 10, 9, 5, 8, -1, 4, 7, 8, 8, -1, 10, 9, 6, 8, -1, 5, 8, 7, 9, -1, 6, 5, 10, 6, -1, 9, 9, 7, 9, -1, 11, 10, 7, 9, -1, 6, 9, 8, 10, -1, 7, 6, 7, 7, -1, 6, 7, 8, 8, -1, 7, 6, 11, 6, -1, 10, 10, 7, 10, -1, 8, 8, 9, 8, -1, 8, 11, 8
Offset: 1

Views

Author

N. J. A. Sloane, Jan 15 2019

Keywords

Comments

This is equally the minimal number of steps to reach n from 1 using "Choix de Bruxelles", version 1 (cf. A323286), or -1 if n cannot be reached.
n cannot be reached if its final digit is 0 or 5, but all other numbers can be reached (see comments in A323286).

Examples

			Examples of optimal ways to reach 1,2,3,...:
1
1, 2
1, 2, 4, 8, 16, 112, 56, 28, 14, 12, 6, 3
1, 2, 4
5 cannot be reached, ends in 0 or 5
1, 2, 4, 8, 16, 112, 56, 28, 14, 12, 6
1, 2, 4, 8, 16, 112, 56, 28, 14, 7
1, 2, 4, 8,
1, 2, 4, 8, 16, 112, 56, 28, 18, 9.
10 cannot be reached, ends in 0 or 5
1, 2, 4, 8, 16, 112, 56, 28, 24, 22, 11
1, 2, 4, 8, 16, 112, 56, 28, 14, 12
1, 2, 4, 8, 16, 13
1, 2, 4, 8, 16, 112, 56, 28, 14
15 cannot be reached, ends in 0 or 5
1, 2, 4, 8, 16
1, 2, 4, 8, 16, 32, 34, 17
1, 2, 4, 8, 16, 112, 56, 28, 18
1, 2, 4, 8, 16, 32, 34, 38, 19
20 cannot be reached, ends in 0 or 5
...
		

Crossrefs

For variants of the Choix de Bruxelles operation, see A337321 and A337357.

Extensions

More terms from Rémy Sigrist, Jan 15 2019

A068599 Number of n-uniform tilings.

Original entry on oeis.org

11, 20, 61, 151, 332, 673, 1472, 2850, 5960, 11866, 24459, 49794, 103082
Offset: 1

Views

Author

Brian Galebach, Mar 28 2002

Keywords

Comments

Sequence gives the number of edge-to-edge regular-polygon tilings having n vertex classes relative to the symmetry of the tiling. Allows tilings with two or more vertex classes having the same arrangement of surrounding polygons (vertex type), as long as those classes are distinct within the symmetry of the tiling .
There are eleven 1-uniform tilings (also called the "Archimedean" tessellations) which comprise the three regular tessellations (all triangles, squares, or hexagons) plus the eight semiregular tessellations.

References

  • Marek Čtrnáct, Postings to Tiling Mailing List, 2021 (a(13) announced in posting on Dec 21 2021).
  • B. Grünbaum and G. C. Shephard, Tilings and Patterns, an Introduction, Freeman, 1989; Exercise *6 on p. 70. See Sections 2.1 and 2.2.

Crossrefs

Cf. A068600.

Extensions

151 and 332 found by Brian Galebach on Apr 30 2002, 673 on Aug 06 2003, 1472 on Apr 28 2020
a(8)-a(13) found by Marek Čtrnáct in 2021. - N. J. A. Sloane, Dec 21 2021

A321440 Number of partitions of n into consecutive parts, all singletons except the largest.

Original entry on oeis.org

1, 1, 2, 3, 3, 4, 5, 4, 5, 7, 5, 6, 8, 5, 8, 10, 5, 8, 10, 7, 10, 11, 7, 8, 13, 9, 9, 14, 7, 12, 15, 6, 12, 13, 11, 15, 14, 8, 10, 19, 10, 12, 18, 8, 16, 19, 9, 12, 17, 14, 16, 16, 10, 15, 21, 15, 14, 20, 7, 16, 25, 7, 20, 21, 14, 18, 18, 14, 12, 26, 16, 17
Offset: 0

Views

Author

Allan C. Wechsler, Nov 09 2018

Keywords

Comments

Number of representations of n as the difference of two distinct triangular numbers, plus any multiple of the order of the larger triangular number.
From Jeremy Lovejoy, Nov 10 2022: (Start)
For n > 0, a(n) is also equal to the Hurwitz class number H(8n-1).
a(n) is also equal to the number of partitions y of n having no repeated even parts and smallest part odd, counted according to the weight w(y) = (-1)^(the number of even parts)*(the number of occurrences of the smallest part). For example, the partitions of 6 having no repeated even parts and smallest part odd are [5,1], [4,1,1], [3,3], [3,2,1], [3,1,1,1], [2,1,1,1,1], and [1,1,1,1,1,1], which are counted with weights 1,-2,2,-1,3,-4, and 6, giving a(6) = 1-2+2-1+3-4+6 = 5. (End)

Examples

			Here are the derivations of the terms given. Partitions are listed as strings of digits.
n = 0: (empty partition)
n = 1: 1
n = 2: 11, 2
n = 3: 111, 12, 3
n = 4: 1111, 22, 4
n = 5: 11111, 122, 23, 5
n = 6: 111111, 123, 222, 33, 6
n = 7: 1111111, 1222, 34, 7
n = 8: 11111111, 2222, 233, 44, 8
n = 9: 111111111, 12222, 1233, 234, 333, 45, 9
n = 10: 1111111111, 1234, 22222, 55, (10)
		

Crossrefs

See comment by Emeric Deutsch at A001227 (partitions into consecutive parts, all singletons); the partitions considered in the present sequence are a superset of those described by Deutsch.

Programs

  • Python
    from sympy.utilities.iterables import partitions
    def A321440(n):
        return 1 if n == 0 else sum(1 for s,p in partitions(n,size=True) if len(p)-1 == max(p)-min(p) == s-p[max(p)]) # Chai Wah Wu, Nov 09 2018
    
  • Python
    from _future_ import division
    def A321440(n): # a faster program based on the characterization in the comments
        if n == 0:
            return 1
        c = 0
        for i in range(n):
            mi = i*(i+1)//2 + n
            for j in range(i+1,n+1):
                k = mi - j*(j+1)//2
                if k < 0:
                    break
                if not k % j:
                    c += 1
        return c # Chai Wah Wu, Nov 09 2018

Formula

From Jeremy Lovejoy, Nov 10 2022: (Start)
G.f.: 1 + Sum_{n>=0} x^(n+1)*Product_{k=1..n} (1-x^(2*k))/Product_{k=1..n+1} (1-x^(2*k-1)).
G.f.: 1 + Sum_{n>=1} (-1)^(n+1)*x^(n^2)/((1-x^(2*n-1))*Product_{k=1..n} (1-x^(2*k-1))). (End)

Extensions

More terms from Chai Wah Wu, Nov 09 2018
Previous Showing 11-20 of 32 results. Next