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-4 of 4 results.

A170875 First differences of A170876.

Original entry on oeis.org

0, 1, 4, 16, 16, 16, 64, 80, 64, 144, 160, 224, 176, 256, 320, 400, 512, 480, 688, 768, 704, 816, 896, 1120, 1168, 1536, 1568, 1936, 1600, 1984, 1776, 2112, 2304, 2544, 2656, 3008, 2896, 3072, 3200
Offset: 0

Views

Author

N. J. A. Sloane, Jan 05 2010, based on email from R. J. Mathar, Jun 02 2009; revised by R. J. Mathar, Jan 08 2010

Keywords

Crossrefs

Cf. A170876.

Extensions

More terms from Colin Barker, Apr 19 2015

A160160 Toothpick sequence in the three-dimensional grid.

Original entry on oeis.org

0, 1, 3, 7, 15, 23, 31, 39, 55, 87, 143, 175, 191, 199, 215, 247, 303, 359, 423, 503, 655, 887, 1239, 1383, 1431, 1463, 1487, 1527, 1583, 1639, 1703, 1783, 1935, 2167, 2519, 2735, 2903, 3079, 3351, 3711, 4207, 4655, 5191, 5855, 7023, 8511, 10511, 11279, 11583, 11919, 12183, 12375, 12487, 12607
Offset: 0

Views

Author

Omar E. Pol, May 03 2009, May 06 2009

Keywords

Comments

Similar to A139250, except the toothpicks are placed in three dimensions, not two. The first toothpick is in the z direction. Thereafter, new toothpicks are placed at free ends, as in A139250, perpendicular to the existing toothpick, but choosing in rotation the x-direction, y-direction, z-direction, x-direction, etc.
The graph of this sequence has a nice self-similar shape: it looks the when the x-range is multiplied by 2, e.g. a(0..125) vs a(0..250) or a(0..500). - M. F. Hasler, Dec 12 2018

Crossrefs

Programs

  • PARI
    A160160_vec(n,o=1)={local(s(U)=[Vecsmall(Vec(V)+U)|V<-E], E=[Vecsmall([1,1,1])], J=[], M,A,B,U); [if(i>4, M+=8*#E=setminus(setunion(A=s(U=matid(3)[i%3+1,]), B=select(vecmin,s(-U))), J=setunion(setunion(setintersect(A,B),E),J)),M=1<M. F. Hasler, Dec 11 2018
    
  • PARI
    A160160(n)=sum(k=1,n,A160161[k]) \\ if A160161=A160161_vec(n) has already been computed. - M. F. Hasler, Dec 12 2018

Formula

Partial sums of A160161: a(n) = Sum_{1 <= k <= n} A160161(k) for all n >= 0. - M. F. Hasler, Dec 12 2018

Extensions

Edited by N. J. A. Sloane, Jan 02 2009
Extended to a(76) with C++ program and illustrations by R. J. Mathar, Jan 09 2010
Extended to 500 terms by M. F. Hasler, Dec 12 2018

A160170 X-toothpick sequence on Z^3 lattice (see Comments for precise definition).

Original entry on oeis.org

0, 1, 5, 13, 21, 45, 77, 109, 165, 245, 325, 413, 525, 685, 853, 1093, 1317, 1661, 1981, 2301, 2645, 3093, 3621, 4157, 4861, 5565, 6437, 7173, 8053, 8893, 9917, 11005, 12261, 13589, 14981, 16397, 17837, 19341, 20997
Offset: 0

Views

Author

Omar E. Pol, May 03 2009

Keywords

Comments

Here a "X-toothpick" is defined to be a cross with 4 endpoints and a midpoint. Also, a X-toothpick can be represented by set of four connected toothpicks forming a cross.
We start at stage 0 on the Z^3 lattice with no X-toothpicks.
At stage 1 place a X-toothpick.
Rule: each exposed endpoint of the X-toothpicks of the old generation must be touched by the midpoint of a X-toothpick of new generation (see illustrations).
The sequence gives the number of X-toothpicks in the three-dimensional structure after n-th stage. A170171 (the first differences) gives the number of X-toothpicks added at n-th stage.
For a similar sequence but starting with a single toothpick see A170876.
For the X-toothpick sequence on Z^2 lattice see A147562, the Ulam-Warburton cellular automaton.
For more information about the growth of toothpicks see A139250.

Crossrefs

Cf. A147562. - Omar E. Pol, Mar 28 2011

Extensions

C++ program, illustrations and more terms (a(6)-a(38)) based on Email from R. J. Mathar dated Jan 10 2010.

A170837 a(0)=0, a(1)=1 and a(n) = 16n-27 for n >= 2.

Original entry on oeis.org

0, 1, 5, 21, 37, 53, 69, 85, 101, 117, 133, 149, 165, 181, 197, 213, 229, 245, 261, 277, 293, 309, 325, 341, 357, 373, 389, 405, 421, 437, 453, 469, 485, 501, 517, 533, 549, 565, 581, 597, 613, 629, 645, 661, 677, 693, 709, 725, 741, 757, 773, 789, 805
Offset: 0

Views

Author

N. J. A. Sloane, Jan 05 2010, based on email from R. J. Mathar and Benoit Jubin, Jun 02 2009; revised Jan 09 2010

Keywords

Crossrefs

Cf. A170836 (first differences), A170876.

Programs

  • Magma
    I:=[0, 1, 5, 21]; [n le 4 select I[n] else 2*Self(n-1) - Self(n-2): n in [1..60]]; // Vincenzo Librandi, Dec 19 2012
  • Mathematica
    CoefficientList[Series[x*(3*x + 12*x^2 + 1)/(x - 1)^2, {x, 0, 60}], x] (* Vincenzo Librandi, Dec 19 2012 *)
    LinearRecurrence[{2,-1},{0,1,5,21},60] (* Harvey P. Dale, Oct 09 2017 *)

Formula

G.f.: x*(3*x+12*x^2+1)/(x-1)^2.
a(n) = 2*a(n-1) -a(n-2), n>=4.
a(n) = 4*A016813(n-2) + 1, n>=2. - Ivan N. Ianakiev, Jul 20 2013
Showing 1-4 of 4 results.