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.

Showing 1-10 of 21 results. Next

A187221 First differences of A187220.

Original entry on oeis.org

0, 1, 2, 4, 8, 8, 8, 16, 24, 16, 8, 16, 24, 24, 32, 56, 64, 32, 8, 16, 24, 24, 32, 56, 64, 40, 32, 56, 72, 80, 120, 176, 160, 64, 8, 16, 24, 24, 32, 56, 64, 40, 32, 56, 72, 80, 120, 176, 160, 72, 32, 56, 72, 80, 120, 176, 168, 112, 120, 184, 224, 280, 416, 512, 384, 128, 8
Offset: 0

Views

Author

Omar E. Pol, Mar 07 2011, Mar 09 2011

Keywords

Comments

Number of gulls (or G-toothpicks) added at n-th stage to the gullwing structure of A187220.
Apparently this is the connection between A147582 and A139251. - Omar E. Pol, Mar 11 2011

Examples

			If written as an irregular triangle begins:
0,
1,
2,
4,
8,8,
8,16,24,16,
8,16,24,24,32,56,64,32,
8,16,24,24,32,56,64,40,32,56,72,80,120,176,160,64,
...
Also there is another version in which the layout of the irregular triangle was adjusted to reveal that the columns become constant:
.0,
.1,
.2,
.4,8,
.8,8,16,24,
16,8,16,24,24,32,56,64,
32,8,16,24,24,32,56,64,40,32,56,72,80,120,176,160,
64,8,16,24,24,32,56,64,40,32,56,72,80,120,176,160,72,32,56,72,80...
		

Crossrefs

Formula

a(0)=0. a(1)=1. It appears that a(n) = 2*A139251(n-1), for n >= 2.

A187222 Gullwing primes: primes in the gullwing sequence A187220.

Original entry on oeis.org

3, 7, 23, 31, 47, 71, 191, 311, 367, 503, 607, 967, 1303, 1367, 1439, 1471, 1663, 1871, 2399, 4951, 5471, 5623, 6263, 9431, 10103, 10271, 10687, 12119, 12511, 14431, 14879, 15647, 21871, 22111, 22271, 22807, 23039, 24223, 24919
Offset: 1

Views

Author

Omar E. Pol, Mar 09 2011, Mar 10 2011

Keywords

Crossrefs

Programs

  • Mathematica
    m = 200 (* number of gullwing terms *); s = (2*(x/((1-x)*(1 + 2*x))))*(1 + 2*x*Product[1 + x^(2^k-1) + 2*x^2^k, {k, 0, Ceiling[Log[2, m]]}]) + O[x]^(m-1); Select[CoefficientList[s, x] + 1, PrimeQ] (* Jean-François Alcover, Jul 23 2017 *)

Formula

A000040 INTERSECT A187220.

Extensions

More terms from Nathaniel Johnston, Mar 22 2011

A187223 Differences between A147562 (Ulam-Warburton cellular automaton) and A187220 (Gullwing sequence).

Original entry on oeis.org

0, 0, 2, 2, 6, 2, 6, 2, 14, 2, 6, 2, 14, 2, 6, -14, 30, 2, 6, 2, 14, 2, 6, -14, 30, 2, 6, -14, 22, -22, -34, -102, 62, 2, 6, 2, 14, 2, 6, -14, 30, 2, 6, -14, 22, -22, -34, -102, 62, 2, 6
Offset: 0

Views

Author

Omar E. Pol, Mar 11 2011

Keywords

Comments

Apparently the Gullwing sequence A187220 is the connection between the Ulam-Warburton C. A. (A147562) and the toothpick sequence A139250.
Note that the more complex structure is A187220, followed by A139250 and then A147562.
For another version which contains only positive terms and is more synchronous see the triangle A187564.

Examples

			Contribution from Omar E. Pol, Aug 25 2012 (Start):
Written as a triangle the sequence begins:
0,
0,
2,
2,6,
2,6,2,14,
2,6,2,14,2,6,-14,30,
2,6,2,14,2,6,-14,30,2,6,-14,22,-22,-34,-102,62,
2,6,2,14,2,6,-14,30,2,6,-14,22,-22,-34,-102,62,2,6,...
(End)
		

Crossrefs

Formula

a(n) = A147562(n) - A187220(n).

A187564 Differences between the Gullwing sequence A187220 and A147562 (Ulam-Warburton cellular automaton).

Original entry on oeis.org

1, 2, 2, 6, 2, 6, 10, 22, 2, 6, 10, 22, 10, 30, 50, 78, 2, 6, 10, 22, 10, 30, 50, 78, 10, 30, 50, 86, 58, 142, 210, 262, 2, 6, 10, 22, 10, 30, 50, 78, 10, 30, 50, 86, 58, 142, 210, 262, 10, 30
Offset: 1

Views

Author

Omar E. Pol, Mar 11 2011

Keywords

Comments

Apparently the Gullwing sequence A187220 is the connection between the Ulam-Warburton C. A. (A147562) and the toothpick sequence A139250.
Note that the more complex structure is A187220, followed by A139250 and then A147562.
For another version with minimal differences but asynchronous see A187223.

Examples

			If written as a triangle begins:
1,
2,
2,6,
2,6,10,22,
2,6,10,22,10,30,50,78,
2,6,10,22,10,30,50,78,10,30,50,86,58,142,210,262,
2,6,10,22,10,30,50,78,10,30,50,86,58,142,210,262,10,30...
		

Crossrefs

Formula

a(n) = A187220(n) - A147562(n-1).

A139250 Toothpick sequence (see Comments lines for definition).

Original entry on oeis.org

0, 1, 3, 7, 11, 15, 23, 35, 43, 47, 55, 67, 79, 95, 123, 155, 171, 175, 183, 195, 207, 223, 251, 283, 303, 319, 347, 383, 423, 483, 571, 651, 683, 687, 695, 707, 719, 735, 763, 795, 815, 831, 859, 895, 935, 995, 1083, 1163, 1199, 1215, 1243, 1279, 1319, 1379
Offset: 0

Views

Author

Omar E. Pol, Apr 24 2008

Keywords

Comments

A toothpick is a copy of the closed interval [-1,1]. (In the paper, we take it to be a copy of the unit interval [-1/2, 1/2].)
We start at stage 0 with no toothpicks.
At stage 1 we place a toothpick in the vertical direction, anywhere in the plane.
In general, given a configuration of toothpicks in the plane, at the next stage we add as many toothpicks as possible, subject to certain conditions:
- Each new toothpick must lie in the horizontal or vertical directions.
- Two toothpicks may never cross.
- Each new toothpick must have its midpoint touching the endpoint of exactly one existing toothpick.
The sequence gives the number of toothpicks after n stages. A139251 (the first differences) gives the number added at the n-th stage.
Call the endpoint of a toothpick "exposed" if it does not touch any other toothpick. The growth rule may be expressed as follows: at each stage, new toothpicks are placed so their midpoints touch every exposed endpoint.
This is equivalent to a two-dimensional cellular automaton. The animations show the fractal-like behavior.
After 2^k - 1 steps, there are 2^k exposed endpoints, all located on two lines perpendicular to the initial toothpick. At the next step, 2^k toothpicks are placed on these lines, leaving only 4 exposed endpoints, located at the corners of a square with side length 2^(k-1) times the length of a toothpick. - M. F. Hasler, Apr 14 2009 and others. For proof, see the Applegate-Pol-Sloane paper.
If the third condition in the definition is changed to "- Each new toothpick must have at exactly one of its endpoints touching the midpoint of an existing toothpick" then the same sequence is obtained. The configurations of toothpicks are of course different from those in the present sequence. But if we start with the configurations of the present sequence, rotate each toothpick a quarter-turn, and then rotate the whole configuration a quarter-turn, we obtain the other configuration.
If the third condition in the definition is changed to "- Each new toothpick must have at least one of its endpoints touching the midpoint of an existing toothpick" then the sequence n^2 - n + 1 is obtained, because there are no holes left in the grid.
A "toothpick" of length 2 can be regarded as a polyedge with 2 components, both on the same line. At stage n, the toothpick structure is a polyedge with 2*a(n) components.
Conjecture: Consider the rectangles in the sieve (including the squares). The area of each rectangle (A = b*c) and the edges (b and c) are powers of 2, but at least one of the edges (b or c) is <= 2.
In the toothpick structure, if n >> 1, we can see some patterns that look like "canals" and "diffraction patterns". For example, see the Applegate link "A139250: the movie version", then enter n=1008 and click "Update". See also "T-square (fractal)" in the Links section. - Omar E. Pol, May 19 2009, Oct 01 2011
From Benoit Jubin, May 20 2009: The web page "Gallery" of Chris Moore (see link) has some nice pictures that are somewhat similar to the pictures of the present sequence. What sequences do they correspond to?
For a connection to Sierpiński triangle and Gould's sequence A001316, see the leftist toothpick triangle A151566.
Eric Rowland comments on Mar 15 2010 that this toothpick structure can be represented as a 5-state CA on the square grid. On Mar 18 2010, David Applegate showed that three states are enough. See links.
Equals row sums of triangle A160570 starting with offset 1; equivalent to convolving A160552: (1, 1, 3, 1, 3, 5, 7, ...) with (1, 2, 2, 2, ...). Equals A160762: (1, 0, 2, -2, 2, 2, 2, -6, ...) convolved with 2*n - 1: (1, 3, 5, 7, ...). Starting with offset 1 equals A151548: [1, 3, 5, 7, 5, 11, 17, 15, ...] convolved with A078008 signed (A151575): [1, 0, 2, -2, 6, -10, 22, -42, 86, -170, 342, ...]. - Gary W. Adamson, May 19 2009, May 25 2009
For a three-dimensional version of the toothpick structure, see A160160. - Omar E. Pol, Dec 06 2009
From Omar E. Pol, May 20 2010: (Start)
Observation about the arrangement of rectangles:
It appears there is a nice pattern formed by distinct modular substructures: a central cross surrounded by asymmetrical crosses (or "hidden crosses") of distinct sizes and also by "nuclei" of crosses.
Conjectures: after 2^k stages, for k >= 2, and for m = 1 to k - 1, there are 4^(m-1) substructures of size s = k - m, where every substructure has 4*s rectangles. The total number of substructures is equal to (4^(k-1)-1)/3 = A002450(k-1). For example: If k = 5 (after 32 stages) we can see that:
a) There is a central cross, of size 4, with 16 rectangles.
b) There are four hidden crosses, of size 3, where every cross has 12 rectangles.
c) There are 16 hidden crosses, of size 2, where every cross has 8 rectangles.
d) There are 64 nuclei of crosses, of size 1, where every nucleus has 4 rectangles.
Hence the total number of substructures after 32 stages is equal to 85. Note that in every arm of every substructure, in the potential growth direction, the length of the rectangles are the powers of 2. (See illustrations in the links. See also A160124.) (End)
It appears that the number of grid points that are covered after n-th stage of the toothpick structure, assuming the toothpicks have length 2*k, is equal to (2*k-2)*a(n) + A147614(n), k > 0. See the formulas of A160420 and A160422. - Omar E. Pol, Nov 13 2010
Version "Gullwing": on the semi-infinite square grid, at stage 1, we place a horizontal "gull" with its vertices at [(-1, 2), (0, 1), (1, 2)]. At stage 2, we place two vertical gulls. At stage 3, we place four horizontal gulls. a(n) is also the number of gulls after n-th stage. For more information about the growth of gulls see A187220. - Omar E. Pol, Mar 10 2011
From Omar E. Pol, Mar 12 2011: (Start)
Version "I-toothpick": we define an "I-toothpick" to consist of two connected toothpicks, as a bar of length 2. An I-toothpick with length 2 is formed by two toothpicks with length 1. The midpoint of an I-toothpick is touched by its two toothpicks. a(n) is also the number of I-toothpicks after n-th stage in the I-toothpick structure. The I-toothpick structure is essentially the original toothpick structure in which every toothpick is replaced by an I-toothpick. Note that in the physical model of the original toothpick structure the midpoint of a wooden toothpick of the new generation is superimposed on the endpoint of a wooden toothpick of the old generation. However, in the physical model of the I-toothpick structure the wooden toothpicks are not overlapping because all wooden toothpicks are connected by their endpoints. For the number of toothpicks in the I-toothpick structure see A160164 which also gives the number of gullwing in a gullwing structure because the gullwing structure of A160164 is equivalent to the I-toothpick structure. It also appears that the gullwing sequence A187220 is a supersequence of the original toothpick sequence A139250 (this sequence).
For the connection with the Ulam-Warburton cellular automaton see the Applegate-Pol-Sloane paper and see also A160164 and A187220.
(End)
A version in which the toothpicks are connected by their endpoints: on the semi-infinite square grid, at stage 1, we place a vertical toothpick of length 1 from (0, 0). At stage 2, we place two horizontal toothpicks from (0,1), and so on. The arrangement looks like half of the I-toothpick structure. a(n) is also the number of toothpicks after the n-th. - Omar E. Pol, Mar 13 2011
Version "Quarter-circle" (or Q-toothpick): a(n) is also the number of Q-toothpicks after the n-th stage in a Q-toothpick structure in the first quadrant. We start from (0,1) with the first Q-toothpick centered at (1, 1). The structure is asymmetric. For a similar structure but starting from (0, 0) see A187212. See A187210 and A187220 for more information. - Omar E. Pol, Mar 22 2011
Version "Tree": It appears that a(n) is also the number of toothpicks after the n-th stage in a toothpick structure constructed following a special rule: the toothpicks of the new generation have length 4 when they are placed on the infinite square grid (note that every toothpick has four components of length 1), but after every stage, one (or two) of the four components of every toothpick of the new generation is removed, if such component contains an endpoint of the toothpick and if such endpoint is touching the midpoint or the endpoint of another toothpick. The truncated endpoints of the toothpicks remain exposed forever. Note that there are three sizes of toothpicks in the structure: toothpicks of lengths 4, 3 and 2. A159795 gives the total number of components in the structure after the n-th stage. A153006 (the corner sequence of the original version) gives 1/4 of the total of components in the structure after the n-th stage. - Omar E. Pol, Oct 24 2011
From Omar E. Pol, Sep 16 2012: (Start)
It appears that a(n)/A147614(n) converges to 3/4.
It appears that a(n)/A160124(n) converges to 3/2.
It appears that a(n)/A139252(n) converges to 3.
Also:
It appears that A147614(n)/A160124(n) converges to 2.
It appears that A160124(n)/A139252(n) converges to 2.
It appears that A147614(n)/A139252(n) converges to 4.
(End)
It appears that a(n) is also the total number of ON cells after n-th stage in a quadrant of the structure of the cellular automaton described in A169707 plus the total number of ON cells after n+1 stages in a quadrant of the mentioned structure, without its central cell. See the illustration of the NW-NE-SE-SW version in A169707. See also the connection between A160164 and A169707. - Omar E. Pol, Jul 26 2015
On the infinite Cairo pentagonal tiling consider the symmetric figure formed by two non-adjacent pentagons connected by a line segment joining two trivalent nodes. At stage 1 we start with one of these figures turned ON. The rule for the next stages is that the concave part of the figures of the new generation must be adjacent to the complementary convex part of the figures of the old generation. a(n) gives the number of figures that are ON in the structure after n-th stage. A160164(n) gives the number of ON cells in the structure after n-th stage. - Omar E. Pol, Mar 29 2018
From Omar E. Pol, Mar 06 2019: (Start)
The "word" of this sequence is "ab". For further information about the word of cellular automata see A296612.
Version "triangular grid": a(n) is also the total number of toothpicks of length 2 after n-th stage in the toothpick structure on the infinite triangular grid, if we use only two of the three axes. Otherwise, if we use the three axes, so we have the sequence A296510 which has word "abc".
The normal toothpick structure can be considered a superstructure of the Ulam-Warburton celular automaton since A147562(n) equals here the total number of "hidden crosses" after 4*n stages, including the central cross (beginning to count the crosses when their "nuclei" are totally formed with 4 quadrilaterals). Note that every quadrilateral in the structure belongs to a "hidden cross".
Also, the number of "hidden crosses" after n stages equals the total number of "flowers with six petals" after n-th stage in the structure of A323650, which appears to be a "missing link" between this sequence and A147562.
Note that the location of the "nuclei of the hidden crosses" is very similar (essentially the same) to the location of the "flowers with six petals" in the structure of A323650 and to the location of the "ON" cells in the version "one-step bishop" of the Ulam-Warburton cellular automaton of A147562. (End)
From Omar E. Pol, Nov 27 2020: (Start)
The simplest substructures are the arms of the hidden crosses. Each closed region (square or rectangle) of the structure belongs to one of these arms. The narrow arms have regions of area 1, 2, 4, 8, ... The broad arms have regions of area 2, 4, 8, 16 , ... Note that after 2^k stages, with k >= 3, the narrow arms of the main hidden crosses in each quadrant frame the size of the toothpick structure after 2^(k-1) stages.
Another kind of substructure could be called "bar chart" or "bar graph". This substructure is formed by the rectangles and squares of width 2 that are adjacent to any of the four sides of the toothpick structure after 2^k stages, with k >= 2. The height of these successive regions gives the first 2^(k-1) - 1 terms from A006519. For example: if k = 5 the respective heights after 32 stages are [1, 2, 1, 4, 1, 2, 1, 8, 1, 2, 1, 4, 1, 2, 1]. The area of these successive regions gives the first 2^(k-1) - 1 terms of A171977. For example: if k = 5 the respective areas are [2, 4, 2, 8, 2, 4, 2, 16, 2, 4, 2, 8, 2, 4, 2].
For a connection to Mersenne primes (A000668) and perfect numbers (A000396) see A153006.
For a representation of the Wagstaff primes (A000979) using the toothpick structure see A194810.
For a connection to stained glass windows and a hidden curve see A336532. (End)
It appears that the graph of a(n) bears a striking resemblance to the cumulative distribution function F(x) for X the random variable taking values in [0,1], where the binary expansion of X is given by a sequence of independent coin tosses with probability 3/4 of being 1 at each bit. It appears that F(n/2^k)*(2^(2k+1)+1)/3 approaches a(n) for k large. - James Coe, Jan 10 2022

Examples

			a(10^10) = 52010594272060810683. - _David A. Corneth_, Mar 26 2015
		

References

  • D. Applegate, Omar E. Pol and N. J. A. Sloane, The Toothpick Sequence and Other Sequences from Cellular Automata, Congressus Numerantium, Vol. 206 (2010), 157-191
  • L. D. Pryor, The Inheritance of Inflorescence Characters in Eucalyptus, Proceedings of the Linnean Society of New South Wales, V. 79, (1954), p. 81, 83.
  • Richard P. Stanley, Enumerative Combinatorics, volume 1, second edition, chapter 1, exercise 95, figure 1.28, Cambridge University Press (2012), p. 120, 166.

Crossrefs

Programs

  • Maple
    G := (x/((1-x)*(1+2*x))) * (1 + 2*x*mul(1+x^(2^k-1)+2*x^(2^k),k=0..20)); # N. J. A. Sloane, May 20 2009, Jun 05 2009
    # From N. J. A. Sloane, Dec 25 2009: A139250 is T, A139251 is a.
    a:=[0,1,2,4]; T:=[0,1,3,7]; M:=10;
    for k from 1 to M do
    a:=[op(a),2^(k+1)];
    T:=[op(T),T[nops(T)]+a[nops(a)]];
    for j from 1 to 2^(k+1)-1 do
    a:=[op(a), 2*a[j+1]+a[j+2]];
    T:=[op(T),T[nops(T)]+a[nops(a)]];
    od: od: a; T;
  • Mathematica
    CoefficientList[ Series[ (x/((1 - x)*(1 + 2x))) (1 + 2x*Product[1 + x^(2^k - 1) + 2*x^(2^k), {k, 0, 20}]), {x, 0, 53}], x] (* Robert G. Wilson v, Dec 06 2010 *)
    a[0] = 0; a[n_] := a[n] = Module[{m, k}, m = 2^(Length[IntegerDigits[n, 2]] - 1); k = (2m^2+1)/3; If[n == m, k, k + 2 a[n - m] + a[n - m + 1] - 1]]; Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Oct 06 2018, after David A. Corneth *)
  • PARI
    A139250(n,print_all=0)={my(p=[], /* set of "used" points. Points are written as complex numbers, c=x+iy. Toothpicks are of length 2 */
    ee=[[0,1]], /* list of (exposed) endpoints. Exposed endpoints are listed as [c,d] where c=x+iy is the position of the endpoint, and d (unimodular) is the direction */
    c,d,ne, cnt=1); print_all && print1("0,1"); n<2 && return(n);
    for(i=2,n, p=setunion(p, Set(Mat(ee~)[,1])); /* add endpoints (discard directions) from last move to "used" points */
    ne=[]; /* new (exposed) endpoints */
    for( k=1, #ee, /* add endpoints of new toothpicks if not among the used points */
    setsearch(p, c=ee[k][1]+d=ee[k][2]*I) || ne=setunion(ne,Set([[c,d]]));
    setsearch(p, c-2*d) || ne=setunion(ne,Set([[c-2*d,-d]]));
    ); /* using Set() we have the points sorted, so it's easy to remove those which finally are not exposed because they touch a new toothpick */
    forstep( k=#ee=eval(ne), 2, -1, ee[k][1]==ee[k-1][1] && k-- && ee=vecextract(ee,Str("^"k"..",k+1)));
    cnt+=#ee; /* each exposed endpoint will give a new toothpick */
    print_all && print1(","cnt));cnt} \\ M. F. Hasler, Apr 14 2009
    
  • PARI
    \\works for n > 0
    a(n) = {my(k = (2*msb(n)^2 + 1) / 3); if(n==msb(n),k , k + 2*a(n-msb(n)) + a(n - msb(n) + 1) - 1)}
    msb(n)=my(t=0);while(n>>t>0,t++);2^(t-1)\\ David A. Corneth, Mar 26 2015
    
  • Python
    def msb(n):
        t = 0
        while n>>t > 0:
            t += 1
        return 2**(t - 1)
    def a(n):
        k = (2 * msb(n)**2 + 1) / 3
        return 0 if n == 0 else k if n == msb(n) else k + 2*a(n - msb(n)) + a(n - msb(n) + 1) - 1
    [a(n) for n in range(101)]  # Indranil Ghosh, Jul 01 2017, after David A. Corneth's PARI script

Formula

a(2^k) = A007583(k), if k >= 0.
a(2^k-1) = A006095(k+1), if k >= 1.
a(A000225(k)) - a((A000225(k)-1)/2) = A006516(k), if k >= 1.
a(A000668(k)) - a((A000668(k)-1)/2) = A000396(k), if k >= 1.
G.f.: (x/((1-x)*(1+2*x))) * (1 + 2*x*Product_{k>=0} (1 + x^(2^k-1) + 2*x^(2^k))). - N. J. A. Sloane, May 20 2009, Jun 05 2009
One can show that lim sup a(n)/n^2 = 2/3, and it appears that lim inf a(n)/n^2 is 0.451... - Benoit Jubin, Apr 15 2009 and Jan 29 2010, N. J. A. Sloane, Jan 29 2010
Observation: a(n) == 3 (mod 4) for n >= 2. - Jaume Oliver Lafont, Feb 05 2009
a(2^k-1) = A000969(2^k-2), if k >= 1. - Omar E. Pol, Feb 13 2010
It appears that a(n) = (A187220(n+1) - 1)/2. - Omar E. Pol, Mar 08 2011
a(n) = 4*A153000(n-2) + 3, if n >= 2. - Omar E. Pol, Oct 01 2011
It appears that a(n) = A160552(n) + (A169707(n) - 1)/2, n >= 1. - Omar E. Pol, Feb 15 2015
It appears that a(n) = A255747(n) + A255747(n-1), n >= 1. - Omar E. Pol, Mar 16 2015
Let n = msb(n) + j where msb(n) = A053644(n) and let a(0) = 0. Then a(n) = (2 * msb(n)^2 + 1)/3 + 2 * a(j) + a(j+1) - 1. - David A. Corneth, Mar 26 2015
It appears that a(n) = (A169707(n) - 1)/4 + (A169707(n+1) - 1)/4, n >= 1. - Omar E. Pol, Jul 24 2015

Extensions

Verified and extended, a(49)-a(53), using the given PARI code by M. F. Hasler, Apr 14 2009
Further edited by N. J. A. Sloane, Jan 28 2010

A147562 Number of "ON" cells at n-th stage in the "Ulam-Warburton" two-dimensional cellular automaton.

Original entry on oeis.org

0, 1, 5, 9, 21, 25, 37, 49, 85, 89, 101, 113, 149, 161, 197, 233, 341, 345, 357, 369, 405, 417, 453, 489, 597, 609, 645, 681, 789, 825, 933, 1041, 1365, 1369, 1381, 1393, 1429, 1441, 1477, 1513, 1621, 1633, 1669, 1705, 1813, 1849, 1957, 2065, 2389, 2401, 2437, 2473
Offset: 0

Views

Author

N. J. A. Sloane, based on emails from Franklin T. Adams-Watters, R. J. Mathar and David W. Wilson, Apr 29 2009

Keywords

Comments

Studied by Holladay and Ulam circa 1960. See Fig. 1 and Example 1 of the Ulam reference. - N. J. A. Sloane, Aug 02 2009.
Singmaster calls this the Ulam-Warburton cellular automaton. - N. J. A. Sloane, Aug 05 2009
On the infinite square grid, start with all cells OFF.
Turn a single cell to the ON state.
At each subsequent step, each cell with exactly one neighbor ON is turned ON, and everything that is already ON remains ON.
Here "neighbor" refers to the four adjacent cells in the X and Y directions.
Note that "neighbor" could equally well refer to the four adjacent cells in the diagonal directions, since the graph formed by Z^2 with "one-step rook" adjacencies is isomorphic to Z^2 with "one-step bishop" adjacencies.
Also toothpick sequence starting with a central X-toothpick followed by T-toothpicks (see A160170 and A160172). The sequence gives the number of polytoothpicks in the structure after n-th stage. - Omar E. Pol, Mar 28 2011
It appears that this sequence shares infinitely many terms with both A162795 and A169707, see Formula section and Example section. - Omar E. Pol, Feb 20 2015
It appears that the positive terms are also the odd terms (a bisection) of A151920. - Omar E. Pol, Mar 06 2015
Also, the number of active (ON, black) cells in the n-th stage of growth of two-dimensional cellular automaton defined by Wolfram's "Rule 558" or "Rule 686" based on the 5-celled von Neumann neighborhood. - Robert Price, May 10 2016
From Omar E. Pol, Mar 05 2019: (Start)
a(n) is also the total number of "hidden crosses" after 4*n stages in the toothpick structure of A139250, including the central cross, beginning to count the crosses when their nuclei are totally formed with 4 quadrilaterals.
a(n) is also the total number of "flowers with six petals" after 4*n stages in the toothpick structure of A323650.
Note that the location of the "nuclei of the hidden crosses" and the "flowers with six petals" in both toothpick structures is essentially the same as the location of the "ON" cells in the version "one-step bishop" of this sequence (see the illustration of initial terms, figure 2). (End)
This sequence has almost exactly the same graph as A187220, A162795, A169707 and A160164 which is twice A139250. - Omar E. Pol, Jun 18 2022

Examples

			If we label the generations of cells turned ON by consecutive numbers we get a rosetta cell pattern:
. . . . . . . . . . . . . . . . .
. . . . . . . . 4 . . . . . . . .
. . . . . . . 4 3 4 . . . . . . .
. . . . . . 4 . 2 . 4 . . . . . .
. . . . . 4 3 2 1 2 3 4 . . . . .
. . . . . . 4 . 2 . 4 . . . . . .
. . . . . . . 4 3 4 . . . . . . .
. . . . . . . . 4 . . . . . . . .
. . . . . . . . . . . . . . . . .
In the first generation, only the central "1" is ON, a(1)=1. In the next generation, we turn ON four "2", leading to a(2)=a(1)+4=5. In the third generation, four "3" are turned ON, a(3)=a(2)+4=9. In the fourth generation, each of the four wings allows three 4's to be turned ON, a(4)=a(3)+4*3=21.
From _Omar E. Pol_, Feb 18 2015: (Start)
Also, written as an irregular triangle T(j,k), j>=0, k>=1, in which the row lengths are the terms of A011782:
1;
5;
9,   21;
25,  37, 49, 85;
89, 101,113,149,161,197,233,341;
345,357,369,405,417,453,489,597,609,645,681,789,825,933,1041,1365;
...
The right border gives the positive terms of A002450.
(End)
It appears that T(j,k) = A162795(j,k) = A169707(j,k), if k is a power of 2, for example: it appears that the three mentioned triangles only share the elements from the columns 1, 2, 4, 8, 16, ... - _Omar E. Pol_, Feb 20 2015
		

References

  • S. Ulam, On some mathematical problems connected with patterns of growth of figures, pp. 215-224 of R. E. Bellman, ed., Mathematical Problems in the Biological Sciences, Proc. Sympos. Applied Math., Vol. 14, Amer. Math. Soc., 1962.
  • S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 928.

Crossrefs

Programs

  • Maple
    Since this is the partial sum sequence of A147582, it is most easily obtained using the Maple code given in A147582.
    # [x,y] coordinates of cells on
    Lse := [[0,0]] ;
    # enclosing rectangle of the cells on (that is, minima and maxima in Lse)
    xmin := 0 ;
    xmax := 0 ;
    ymin := 0 ;
    ymax := 0 ;
    # count neighbors of x,y which are on; return 0 if [x,y] is in L
    cntnei := proc(x,y,L)
    local a,p,xpt,ypt;
    a := 0 ;
    if not [x,y] in L then
    for p in Lse do
    xpt := op(1,p) ;
    ypt := op(2,p) ;
    if ( abs(xpt-x) = 1 and ypt=y ) or ( x=xpt and abs(ypt-y) = 1) then
    a := a+1 ;
    fi;
    od:
    fi:
    RETURN(a) ;
    end:
    # loop over generations/steps
    for stp from 1 to 10 do
    Lnew := [] ;
    for x from xmin-1 to xmax+1 do
    for y from ymin-1 to ymax+1 do
    if cntnei(x,y,Lse) = 1 then
    Lnew := [op(Lnew),[x,y]] ;
    fi;
    od:
    od:
    for p in Lnew do
    xpt := op(1,p) ;
    ypt := op(2,p) ;
    xmin := min(xmin,xpt) ;
    xmax := max(xmax,xpt) ;
    ymin := min(ymin,ypt) ;
    ymax := max(ymax,ypt) ;
    od:
    Lse := [op(Lse),op(Lnew)] ;
    print(nops(Lse)) ;
  • Mathematica
    Join[{0},Map[Function[Apply[Plus,Flatten[ #1]]],CellularAutomaton[{686,{2,{{0,2,0},{2,1,2},{0,2,0}}},{1,1}},{{{1}},0},200]]] (* Nadia Heninger and N. J. A. Sloane, Aug 11 2009; modified by Paolo Xausa, Aug 12 2022 to include the a(0) term *)
    ArrayPlot /@ CellularAutomaton[{686, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 16] (* N. J. A. Sloane, Nov 08 2014 *)
    A147562list[nmax_]:=Accumulate[Join[{0,1},4*3^(DigitCount[Range[nmax-1],2,1]-1)]];A147562list[100] (* Paolo Xausa, May 21 2023 *)
  • PARI
    a(n) = if (n, 1 + 4*sum(k=1, n-1, 3^(hammingweight(k)-1)), 0); \\ Michel Marcus, Jul 05 2022

Formula

a(n) = 1 + 4*Sum_{k=1..n-1} 3^(wt(k)-1) for n>1, where wt() = A000120(). [Corrected by Paolo Xausa, Aug 12 2022]
For asymptotics see the discussion in the comments in A006046. - N. J. A. Sloane, Mar 11 2021
From Omar E. Pol, Mar 13 2011: (Start)
a(n) = 2*A151917(n) - 1, for n >= 1.
a(n) = 1 + 4*A151920(n-2), for n >= 2.
(End)
It appears that a(n) = A162795(n) = A169707(n), if n is a member of A048645, otherwise a(n) < A162795(n) < A169707(n). - Omar E. Pol, Feb 20 2015
It appears that a(n) = A151920(2n-2), n >= 1. - Omar E. Pol, Mar 06 2015
It appears that a(n) = (A130665(2n-1) - 1)/3, n >= 1. - Omar E. Pol, Mar 07 2015
a(n) = 1 + 4*(A130665(n-1) - 1)/3, n >= 1. Omar E. Pol, Mar 07 2015
a(n) = A323650(2n)/3. - Omar E. Pol, Mar 04 2019

Extensions

Offset and initial terms changed by N. J. A. Sloane, Jun 07 2009
Numbers in the comment adapted to the offset by R. J. Mathar, Mar 03 2010

A187210 Q-toothpick sequence (see Comments for precise definition).

Original entry on oeis.org

0, 1, 5, 12, 24, 46, 66, 88, 128, 182, 222, 244, 284, 338, 394, 464, 584, 718, 790, 812, 852, 906, 962, 1032, 1152, 1286, 1374, 1444, 1564, 1714, 1882, 2128, 2488, 2814, 2950, 2972, 3012, 3066, 3122, 3192, 3312, 3446, 3534, 3604, 3724, 3874, 4042, 4288, 4648, 4974, 5126, 5196, 5316, 5466, 5634, 5880, 6240, 6582, 6814, 7060, 7436, 7890, 8458, 9296, 10328
Offset: 0

Views

Author

Omar E. Pol, Mar 07 2011

Keywords

Comments

We define a "Q-toothpick" to be a quarter-circle. The length of a Q-toothpick is equal to Pi/2 = 1.570796...
In order to construct this sequence we use the following rules:
- Each new Q-toothpick must lie on the square grid (or circular grid) such that the Q-toothpick endpoints coincide with two opposite vertices of a unit square.
- Each exposed endpoint of the Q-toothpicks of the old generation must be touched by the endpoints of two q-toothpicks of new generation without creating a corner or vertex between these three arcs such that the couple of new Q-toothpicks should look like a "gullwing".
Note that in the Q-toothpick structure sometimes there is also an internal growth of the Q-toothpicks.
The sequence gives the number of Q-toothpicks in the structure after n stages. A187211 (the first differences) gives the number of Q-toothpicks added at n-th stage.
Note that the structure of the Q-toothpick cellular automaton contains distinct types of geometrical figures, for example: circles, diamonds, hearts, heads or flower vases (which appears only on the main diagonal) and also an infinity family of objects (blobs) where every object is a closed region which contains 2^k virtual circles with radius 1 and 2^k-1 virtual diamonds, for example: a 2 X 2 object is a closed region which contains exactly four virtual circles and three virtual diamonds, a 2 X 4 object is a closed region which contains exactly 8 virtual circles and 7 virtual diamonds, etc. Note that a "heart" can be considered a 1 X 2 object which contains two virtual circles and a virtual diamond. What is the better name for these figures? Note that there is a correspondence between this last family of objects and the squares and rectangles of the hidden crosses in the toothpick structure of A139250. For more information about the connection with the toothpick sequence see A139250, A160164 and A187220.
It appears that the number of hearts present in the n-th generation equals the number of rectangles of area = 2 present in the (n-2)nd generation of the toothpick structure of A139250, assuming the toothpicks have length 2, if n >= 3 (see also A188346 and A211008). - Omar E. Pol, Sep 30 2012
From Omar E. Pol, Jan 23 2016: (Start)
Consider the initial Q-toothpick with the virtual center at (0,0) and its endpoints at (0,1) and (1,0).
If n is a power of 2 plus 2 and n >> 1 then the structure of this C.A. essentially looks like a square which contains four parts (or sectors) as follows:
1) NW quadrant, but whose origin is at (-1,1). In this quadrant the number of Q-toothpicks after n generations equals the number of toothpicks in the toothpick structure of A139250 after n-2 generations, if n >= 2. Note that here the toothpick sequence A139250 is represented with Q-toothpicks arranged in an asymmetric structure.
2) SE quadrant, but whose origin is at (1,-1). This quadrant is a reflected copy of the NW quadrant, hence the number of Q-toothpicks after n generations equals A139250(n-2), n >= 2, the same as in the NW quadrant.
3) SW quadrant, but with the origin in the first quadrant at (1,1). In this quadrant the number of Q-toothpicks after n generations is 1 + A267694(n-1), n >= 1.
4) NE quasi-quadrant. In this sector the number of Q-toothpicks after n-generations is A267698(n-2) - 2, if n >= 6. (End)
After the first few generations the behavior is similar to the Gullwing cellular automaton of A187220, but the growth is faster than A187220 and thus it's much faster than A139250. For an animation see Applegate's The movie version in the Links section. - Omar E. Pol, Sep 13 2016

Examples

			From _Omar E. Pol_, Apr 02 2016: (Start)
Examples that are related to the toothpick sequence A139250 (see the first formula):
For n = 5 we have that A139250(5-2) = 7, A267698(5-2) = 13, A267694(5-1) = 16 and m = 3, so a(5) = 2*7 + 13 + 16 + 3 = 46.
For n = 6 we have that A139250(6-2) = 11, A267698(6-2) = 25, A267694(6-1) = 20 and m = -1, so a(6) = 2*11 + 25 + 20 - 1 = 66. (End)
From _Omar E. Pol_, Sep 13 2016: (Start)
Examples that are related to the Gullwing sequence A187220 (see the second formula):
For n = 5 we have that A187220(5-1) = 15, A267698(5-2) = 13, A267694(5-1) = 16 and m = 2, so a(5) = 15 + 13 + 16 + 2 = 46.
For n = 6 we have that A187220(6-1) = 23, A267698(6-2) = 25, A267694(6-1) = 20 and m = -2, so a(6) = 23 + 25 + 20 - 2 = 66. (End)
		

References

  • A. Adamatzky and G. J. Martinez, Designing Beauty: The Art of Cellular Automata, Springer, 2016, pages 59, 62 (note that the Q-toothpick cellular automaton is erroneously attributed to Nathaniel Johnston).

Crossrefs

Formula

a(0)=0; a(1)=1; a(n) = 2*A139250(n-2) + A267698(n-2) + A267694(n-1) + m, where m = 3 if 2 <= n <= 5 and m = -1 if n>=6 (note that 2*A139250(n-2) can be replaced with A160164(n-2)). - Omar E. Pol, Jan 23 2016
a(n) = A187220(n-1) + A267698(n-2) + A267694(n-1) + m, where m = 2 if 2 <= n <= 5 and m = -2 if n >= 6. - Omar E. Pol, Sep 13 2016

Extensions

Terms a(8) and beyond from Nathaniel Johnston, Mar 26 2011
Comments edited by Omar E. Pol, Mar 28 2011
Second rule clarified by Omar E. Pol, Apr 06 2011

A153000 Toothpick sequence in the first quadrant.

Original entry on oeis.org

0, 1, 2, 3, 5, 8, 10, 11, 13, 16, 19, 23, 30, 38, 42, 43, 45, 48, 51, 55, 62, 70, 75, 79, 86, 95, 105, 120, 142, 162, 170, 171, 173, 176, 179, 183, 190, 198, 203, 207, 214, 223, 233, 248, 270, 290, 299, 303, 310, 319, 329, 344, 366, 387
Offset: 0

Views

Author

Omar E. Pol, Dec 16 2008, Dec 20 2008, Jan 02 2009

Keywords

Comments

From Omar E. Pol, Nov 29 2009: (Start)
At stage 0, we start from a horizontal half toothpick at [(0,1),(1,1)]. This half toothpick represents one of the two components of the second toothpick placed in the toothpick structure of A139250. Consider only the toothpicks of length 2, so a(0) = 0.
At stage 1 we place an orthogonal toothpick of length 2 centered at the end, so a(1) = 1.
In each subsequent stage, for every exposed toothpick end, place an orthogonal toothpick centered at that end.
The sequence gives the number of toothpicks after n stages. Note that this sequence contains even numbers and odd numbers, the same as A152978 (the first differences) which gives the number of toothpicks added at n-th stage. For more information see A139250. (End)
A079559 gives the parity of this sequence, if n >= 1. - Omar E. Pol, Aug 13 2013

References

  • D. Applegate, Omar E. Pol and N. J. A. Sloane, The Toothpick Sequence and Other Sequences from Cellular Automata, Congressus Numerantium, Vol. 206 (2010), 157-191

Crossrefs

Programs

  • Maple
    G := (1+x)*(mul(1+x^(2^k-1)+2*x^(2^k),k=1..20)-1)/((1-x)*(1+2*x)); # N. J. A. Sloane, May 20 2009
  • Python
    def msb(n):
        t=0
        while n>>t>0: t+=1
        return 2**(t - 1)
    def a139250(n):
        k=(2*msb(n)**2 + 1)//3
        return 0 if n==0 else k if n==msb(n) else k + 2*a139250(n - msb(n)) + a139250(n - msb(n) + 1) - 1
    def a(n): return 0 if n==0 else (a139250(n + 2) - 3)//4
    print([a(n) for n in range(101)]) # Indranil Ghosh, Jul 01 2017

Formula

a(n) = (A139250(n+2)-3)/4 = (A152998(n+1)-1)/2.
G.f.: (1+x)*(Product_{k>=1} (1+x^(2^k-1)+2*x^(2^k))-1)/((1-x)*(1+2*x)). - N. J. A. Sloane, May 20 2009
Contribution from Omar E. Pol, Oct 01 2011: (Start)
a(n) = A152998(n+1) + A153003(n+1) - A139250(n+2) + 1.
a(n) = A139250(n+2) - A153003(n+1) - 2.
a(n) = A153003(n+1) - A152998(n+1).
(End)
a(n) = (A187220(n+3) - 7)/8. - Omar E. Pol, Feb 16 2013

A169707 Total number of ON cells at stage n of two-dimensional cellular automaton defined by "Rule 750" using the von Neumann neighborhood.

Original entry on oeis.org

1, 5, 9, 21, 25, 37, 57, 85, 89, 101, 121, 149, 169, 213, 281, 341, 345, 357, 377, 405, 425, 469, 537, 597, 617, 661, 729, 805, 889, 1045, 1241, 1365, 1369, 1381, 1401, 1429, 1449, 1493, 1561, 1621, 1641, 1685, 1753, 1829, 1913, 2069, 2265, 2389, 2409, 2453, 2521
Offset: 1

Views

Author

N. J. A. Sloane, Apr 17 2010

Keywords

Comments

Square grid, 4 neighbors per cell (N, E, S, W cells), turn ON iff exactly 1 or 3 neighbors are ON; once ON, cells stay ON.
The terms agree with those of A246335 for n <= 11, although the configurations are different starting at n = 7. - N. J. A. Sloane, Sep 21 2014
Offset 1 is best for giving a formula for a(n), although the Maple and Mathematica programs index the states starting at state 0.
It appears that this shares infinitely many terms with both A162795 and A147562, see Formula section and Example section. - Omar E. Pol, Feb 19 2015

Examples

			Divides naturally into blocks of sizes 1,2,4,8,16,...:
1,
5, 9,
21, 25, 37, 57,
85, 89, 101, 121, 149, 169, 213, 281, <- terms 8 through 15
341, 345, 357, 377, 405, 425, 469, 537, 597, 617, 661, 729, 805, 889, 1045, 1241,
1365, 1369, 1381, 1401, 1429, 1449, 1493, 1561, 1621, 1641, 1685, 1753, 1829, 1913, 2069, 2265, 2389, 2409, 2453, 2521, ...
From _Omar E. Pol_, Feb 18 2015: (Start)
Also, written as an irregular triangle T(j,k), k>=1, in which the row lengths are the terms of A011782:
1;
5;
9,   21;
25,  37,   57,  85;
89,  101, 121, 149, 169, 213, 281, 341;
345, 357, 377, 405, 425, 469, 537, 597, 617, 661, 729, 805, 889, 1045, 1241, 1365;
The right border gives the positive terms of A002450.
It appears that T(j,k) = A162795(j,k) = A147562(j,k), if k is a power of 2, for example: it appears that the three mentioned triangles only share the elements from the columns 1, 2, 4, 8, 16, ...
(End)
		

References

  • S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 928.

Crossrefs

Cf. A169708 (first differences), A147562, A147582, A169648, A169649, A169709, A169710, A246333, A246334, A246335, A246336, A253098 (partial sums).
See A253088 for the analogous CA using Rule 750 and a 9-celled neighborhood.

Programs

  • Maple
    (Maple program that uses the actual definition of the automaton, rather than the (conjectured) formula, from N. J. A. Sloane, Feb 15 2015):
    # Count terms in a polynomial:
    C := f->`if`(type(f, `+`), nops(f), 1);
    # Replace all nonzero coeffts by 1:
    bool := proc(f) local ix, iy, f2, i, t1, t2, A;
    f2:=expand(f);
    if whattype(f) = `+` then
    t1:=nops(f2); A:=0;
    for i from 1 to t1 do t2:=op(i, f2); ix:=degree(t2, x); iy:=degree(t2, y);
    A:=A+x^ix*y^iy; od: A;
    else ix:=degree(f2, x); iy:=degree(f2, y); x^ix*y^iy;
    fi;
    end;
    # a loop that produces M steps of A169707 and A169708:
    M:=20;
    F:=x*y+x/y+1/x*y+1/x/y mod 2;
    GG[0]:=1;
    for n from 1 to M do dd[n]:=expand(F*GG[n-1]) mod 2;
    GG[n]:=bool(GG[n-1]+dd[n]);
    lprint(n,C(GG[n]), C(GG[n]-GG[n-1])); od:
  • Mathematica
    Map[Function[Apply[Plus,Flatten[ #1]]], CellularAutomaton[{ 750, {2,{{0,2,0},{2,1,2},{0,2,0}}},{1,1}},{{{1}},0},100]]
    ArrayPlot /@ CellularAutomaton[{750, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 23]
    (* The next two lines deal with the equivalent CA based on neighbors NW, NE, SE, SW. This is to facilitate the comparison with A246333 and A246335 *)
    Map[Function[Apply[Plus, Flatten[ #1]]], CellularAutomaton[{ 750, {2, {{2, 0, 2}, {0, 1, 0}, {2, 0, 2}}}, {1, 1}}, {{{1}}, 0}, 100]]
    ArrayPlot /@ CellularAutomaton[{750, {2, {{2, 0, 2}, {0, 1, 0}, {2, 0, 2}}}, {1, 1}}, {{{1}}, 0}, 23]

Formula

a(2^k + i) = (4^(k+1)-1)/3 + 4*A246336(i), for k >= 0, 0 <= i < 2^k. For example, if n = 15 = 2^3 + 7, so k=3, i=7, we have a(15) = (4^4-1)/3 + 4*A246336(7) = 85 + 4*49 = 281.
a(n) = 1 + 2*(A139250(n) - A160552(n)) = A160164(n) - A170903(n) = A187220(n) + 2*(A160552(n-1)). - Omar E. Pol, Feb 18 2015
It appears that a(n) = A162795(n) = A147562(n), if n is a member of A048645, otherwise a(n) > A162795(n) > A147562(n). - Omar E. Pol, Feb 19 2015
It appears that a(n) = 1 + 4*A255747(n-1). - Omar E. Pol, Mar 05 2015
It appears that a(n) = 1 + 4*(A139250(n-1) - (a(n-1) - 1)/4), n > 1. - Omar E. Pol, Jul 24 2015
It appears that a(2n) = 1 + 4*A162795(n). - Omar E. Pol, Jul 04 2017

Extensions

Edited (added formula, illustration, etc.) by N. J. A. Sloane, Aug 30 2014
Offset changed to 1 by N. J. A. Sloane, Feb 09 2015

A160124 Total number of squares and rectangles after n stages in the toothpick structure of A139250.

Original entry on oeis.org

0, 0, 0, 2, 4, 4, 8, 18, 24, 24, 28, 36, 40, 44, 64, 94, 108, 108, 112, 120, 124, 128, 148, 176, 188, 192, 208, 228, 240, 268, 340, 418, 448, 448, 452, 460, 464, 468, 488, 516, 528, 532, 548, 568, 580, 608, 680, 756, 784, 788, 804, 824, 836, 864, 932, 1000, 1028
Offset: 0

Views

Author

Omar E. Pol, May 03 2009

Keywords

Comments

From Omar E. Pol, Sep 16 2012: (Start)
It appears that A147614(n)/a(n) converge to 2.
It appears that A139250(n)/a(n) converge to 3/2.
It appears that a(n)/A139252(n) converge to 2.
(End)
Also 0 together with the rows sums of A211008. - Omar E. Pol, Sep 24 2012

Crossrefs

Programs

  • Mathematica
    w [n_] := w[n] = Module[{k, i}, Which[n == 0, 0, n <= 3, n - 1, True, k = Floor[Log[2, n]]; i = n - 2^k; Which[i == 0, 2^(k - 1) - 1, i < 2^k - 2, 2 w[i] + w[i + 1], i == 2^k - 2, 2 w[i] + w[i + 1] + 1, True, 2 w[i] + w[i + 1] + 2]]];
    r[n_] := r[n] = Module[{k, i}, Which[n <= 2, 0, n <= 4, 2, True, k = Floor[Log[2, n]]; i = n - 2^k; Which[i == 0, 2^k - 2, i <= 2^k - 2, 4 w[i], True, 4 w[i] + 2]]];
    Join[{0}, Array[r, 100]] // Accumulate (* Jean-François Alcover, Apr 15 2020, after Maple code in A160125 *)

Formula

See A160125 for a recurrence. - N. J. A. Sloane, Feb 03 2010
a(n) = 1+2*A139250(n)-A147614(n), n>0 (Euler's formula). [From R. J. Mathar, Jan 22 2010]
a(n) = A187220(n+1) - A147614(n), n>0. - Omar E. Pol, Feb 15 2013

Extensions

More terms from R. J. Mathar, Jan 21 2010
Showing 1-10 of 21 results. Next