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

A119413 a(n) = 16*n - 12.

Original entry on oeis.org

4, 20, 36, 52, 68, 84, 100, 116, 132, 148, 164, 180, 196, 212, 228, 244, 260, 276, 292, 308, 324, 340, 356, 372, 388, 404, 420, 436, 452, 468, 484, 500, 516, 532, 548, 564, 580, 596, 612, 628, 644, 660, 676, 692, 708, 724, 740, 756, 772, 788, 804, 820, 836
Offset: 1

Views

Author

Jorge Coveiro, Jul 26 2006

Keywords

Comments

General form: (q*n+1)*q: q=2: A016825, q=3: A017197, q=4: A119413, ... . - Vladimir Joseph Stephan Orlovsky, Feb 16 2009

Crossrefs

Programs

Formula

O.g.f.: 4*x*(1+3*x)/(1-x)^2. - R. J. Mathar, Aug 08 2008
From Elmo R. Oliveira, Apr 03 2025: (Start)
E.g.f.: 4*(exp(x)*(4*x - 3) + 3).
a(n) = 2*a(n-1) - a(n-2) for n > 2.
a(n) = 4*A016813(n-1) = 2*A017089(n-1). (End)

A043880 Numbers k such that 0 and 1 occur juxtaposed in the base-4 representation of k but not of k+1.

Original entry on oeis.org

4, 20, 33, 36, 49, 52, 84, 97, 100, 113, 116, 129, 135, 148, 161, 164, 177, 180, 193, 199, 212, 225, 228, 241, 244, 340, 353, 356, 369, 372, 385, 391, 404, 417, 420, 433, 436, 449, 455, 468, 481, 484, 497, 500, 513, 519, 543, 545, 548, 561, 564, 596, 609, 612
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    SequencePosition[Table[If[SequenceCount[IntegerDigits[n,4],{0,1}]>0 || SequenceCount[ IntegerDigits[ n,4],{1,0}]>0,1,0],{n,600}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 14 2016 *)
  • Python
    from sympy.ntheory.factor_ import digits
    def has01or10(k):
      s = "".join(map(str, digits(k, 4)[1:])); return "01" in s or "10" in s
    def ok(n): return has01or10(n) and not has01or10(n+1)
    print(list(filter(ok, range(613)))) # Michael S. Branicky, Apr 20 2021
Showing 1-2 of 2 results.