A007283 -id:A007283 - cp's OEIS frontend

A070003 Numbers divisible by the square of their largest prime factor.

4, 8, 9, 16, 18, 25, 27, 32, 36, 49, 50, 54, 64, 72, 75, 81, 98, 100, 108, 121, 125, 128, 144, 147, 150, 162, 169, 196, 200, 216, 225, 242, 243, 245, 250, 256, 288, 289, 294, 300, 324, 338, 343, 361, 363, 375, 392, 400, 432, 441, 450, 484, 486, 490, 500, 507

Offset: 1

Labos Elemer, May 07 2002

nonn

Numbers n such that P(phi(n)) - phi(P(n)) = 1, where P(x) is the largest prime factor of x. P(phi(n)) - phi(P(n)) = A006530(A000010(n)) - A000010(A006530(n)).
Numbers n such that the value of the commutator of phi and P functions at n is -1.
Equivalently, n such that n and phi(n) have the same largest prime factor since Phi(p) = p-1 if p is prime. - Benoit Cloitre, Jun 08 2002
Since n is divisible by P(n)^2, n cannot divide P(n)! and so A057109 is a supersequence. Hence all A002034(a(n)) are composite. - Jonathan Sondow, Dec 28 2004
A225546 defines a self-inverse bijection between this sequence and A335740, considered as sets. - Peter Munn, Jul 19 2020

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Paul Erdős and Ron L. Graham, On products of factorials, Bull. Inst. Math. Acad. Sinica 4:2 (1976), pp. 337-355. [alternate link]
Paul Erdős and Ilias Kastanas, Solution 6674:The smallest factorial that is a multiple of n, Amer. Math. Monthly 101 (1994) 179.
A. J. Kempner, Miscellanea, Amer. Math. Monthly, 25 (1918), 201-210. See Section II, "Concerning the smallest integer m! divisible by a given integer n."
Eric Weisstein's World of Mathematics, Greatest Prime Factor
Eric Weisstein's World of Mathematics, Totient Function

Subsequence of A057109, A122145.
Complement within A020725 of A102750.
Cf. A000010, A006530, A068211, A070777, A070812, A070002, A070004, A007283, A070813, A070814, A070815, A070816, A002034, A102067, A102068.
Related to A335740 via A225546.
A195212 is a subsequence.
Cf. A319988 (characteristic function). Positions of odd terms > 1 in A122111.

isA070003 := proc(n)
    if modp(n,A006530(n)^2) = 0 then # code re-use
        true;
    else
        false;
    end if;
end proc:
A070003 := proc(n)
    option remember ;
    if n =1 then
        4;
    else
        for a from procname(n-1)+1 do
            if isA070003(a) then
                return a
            end if;
        end do:
    end if;
end proc:
seq( A070003(n),n=1..80) ; # R. J. Mathar, Jun 27 2024

p[n_] := FactorInteger[n][[-1, 1]]; ep[n_] := EulerPhi[n]; fQ[n_] := p[ep[n]] == 1 + ep[p[n]]; Select[ Range[ 510], fQ] (* Robert G. Wilson v, Mar 26 2012 *)
Select[Range[500], FactorInteger[#][[-1,2]] > 1 &] (* T. D. Noe, Dec 06 2012 *)

for(n=3,1000,if(component(component(factor(n),1),omega(n))==component(component(factor(eulerphi(n)),1),omega(eulerphi(n))),print1(n,",")))

is(n)=my(f=factor(n)[,2]);f[#f]>1 \\ Charles R Greathouse IV, Mar 21 2012

sm(lim,mx)=if(mx==2,return(vector(log(lim+.5)\log(2)+1,i,1<<(i-1))));my(v=[1]);forprime(p=2,min(mx,lim),v=concat(v,p*sm(lim\p,p)));vecsort(v)
list(lim)=my(v=[]);forprime(p=2,sqrt(lim),v=concat(v,p^2*sm(lim\p^2,p)));vecsort(v) \\ Charles R Greathouse IV, Mar 27 2012

from sympy import factorint
def ok(n): f = factorint(n); return f[max(f)] >= 2
print(list(filter(ok, range(4, 508)))) # Michael S. Branicky, Apr 08 2021

Erdős proved that there are x * exp(-(1 + o(1))sqrt(log x log log x)) members of this sequence up to x. - Charles R Greathouse IV, Mar 26 2012

New name from Jonathan Sondow and Charles R Greathouse IV, Mar 27 2012

A001630 Tetranacci numbers: a(n) = a(n-1) + a(n-2) + a(n-3) + a(n-4), with a(0)=a(1)=0, a(2)=1, a(3)=2.

Original entry on oeis.org

0, 0, 1, 2, 3, 6, 12, 23, 44, 85, 164, 316, 609, 1174, 2263, 4362, 8408, 16207, 31240, 60217, 116072, 223736, 431265, 831290, 1602363, 3088654, 5953572, 11475879, 22120468, 42638573, 82188492, 158423412, 305370945, 588621422, 1134604271, 2187020050

Offset: 0

N. J. A. Sloane

Also (with a different offset), coordination sequence for (4,infinity,infinity) tiling of hyperbolic plane. - N. J. A. Sloane, Dec 29 2015
Apparently for n>=2 the number of 1-D walks of length n-2 using steps +1, +3 and -1, avoiding consecutive -1 steps. - David Scambler, Jul 15 2013
From Elkhan Aday and Greg Dresden, Jun 24 2024: (Start)
For n > 1, a(n) is the number of ways to tile a skew double-strip of n-1 cells with one extra initial cell, using squares and all possible "dominoes". Here is the skew double-strip corresponding to n=12, with 11 cells:
         _ ___ _ ___ _
        |   |   |   |   |   |
   _ _|_|___|_|___|_|
  |   |   |   |   |   |   |
  |_|___|_|___|_|___|,
and here are the three possible "domino" tiles:
     _     _
    |   |   |   |
   |  |   |  |      _____
  |   |       |   |    |       |
  |_|,      |_|,   |_____|.
As an example, here is one of the a(12) = 609 ways to tile the skew double-strip of 11 cells:
         _ _______ _____
        |   |   |   |   |   |
   ___|_  |_|_ | _|  _|
  |       |   |   |   |   |
  |_____|___|_|___|_|. (End)

			G.f. = x^2 + 2*x^3 + 3*x^4 + 6*x^5 + 12*x^6 + 23*x^7 + 44*x^8 + 85*x^9 + ...

N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Indranil Ghosh, Table of n, a(n) for n = 0..3503 (terms 0..500 from T. D. Noe)
Martin Burtscher, Igor Szczyrba, Rafał Szczyrba, Analytic Representations of the n-anacci Constants and Generalizations Thereof, Journal of Integer Sequences, Vol. 18 (2015), Article 15.4.5.
J. W. Cannon and P. Wagreich, Growth functions of surface groups, Mathematische Annalen, 1992, Volume 293, pp. 239-257. See Prop. 3.1.
W. C. Lynch, The t-Fibonacci numbers and polyphase sorting, Fib. Quart., 8 (1970), pp. 6ff.
Simon Plouffe, Approximations de séries génératrices et quelques conjectures, Dissertation, Université du Québec à Montréal, 1992; arXiv:0911.4975 [math.NT], 2009.
Simon Plouffe, 1031 Generating Functions, Appendix to Thesis, Montreal, 1992
Helmut Prodinger, Counting Palindromes According to r-Runs of Ones Using Generating Functions, J. Int. Seq. 17 (2014) # 14.6.2, even length, r=3.
Index entries for linear recurrences with constant coefficients, signature (1,1,1,1).

Coordination sequences for triangular tilings of hyperbolic space: A001630, A007283, A054886, A078042, A096231, A163876, A179070, A265057, A265058, A265059, A265060, A265061, A265062, A265063, A265064, A265065, A265066, A265067, A265068, A265069, A265070, A265071, A265072, A265073, A265074, A265075, A265076, A265077.

Cf. A000032.

I:=[0, 0, 1, 2]; [n le 4 select I[n] else Self(n-1)+ Self(n-2) + Self(n-3) + Self(n-4): n in [1..40]]; // Vincenzo Librandi, Jan 29 2013

a:= proc(n) option operator; local M; M := Matrix(4, (i,j)-> if (i=j-1) or j=1 then 1 else 0 fi)^n; M[1,4]+M[1,3] end; seq (a(n), n=0..34); # Alois P. Heinz, Aug 01 2008

a=0; b=0; c=1; d=2; lst={a, b, c, d}; Do[e=a+b+c+d; AppendTo[lst, e]; a=b; b=c; c=d; d=e, {n, 4!}]; lst (* Vladimir Joseph Stephan Orlovsky, Sep 30 2008 *)
RecurrenceTable[{a[0] == a[1] == 0, a[2] == 1, a[3] == 2, a[n] == a[n - 1] + a[n - 2] + a[n - 3] + a[n - 4]}, a, {n, 35}] (* or *) a = {0, 0, 1, 2}; Do[AppendTo[a, a[[-1]] + a[[-2]] + a[[-3]] + a[[-4]]], {35}]; a (* Bruno Berselli, Jan 29 2013 *)
CoefficientList[Series[- x^2 * (1 + x)/(- 1 + x + x^2 + x^3 + x^4), {x, 0, 35}], x] (* Vincenzo Librandi, Jan 29 2013 *)
LinearRecurrence[{1,1,1,1},{0,0,1,2},40] (* Harvey P. Dale, Aug 25 2013 *)

concat([0, 0], Vec(-x^2*(1+x)/(-1+x+x^2+x^3+x^4) + O(x^50))) \\ Michel Marcus, Dec 30 2015

G.f.: -x^2*(1+x)/(-1+x+x^2+x^3+x^4). [Simon Plouffe in his 1992 dissertation]
a(n) = A000078(n) + A000078(n+1) = a(n-1) + A000078(n+1) - A000078(n-1). - Henry Bottomley
a(n) = 2*a(n-1) - a(n-5) with n>4, a(0)=a(1)=0, a(2)=1, a(3)=2, a(4)=3. - Vincenzo Librandi, Dec 21 2010
G.f.: x^2 + x^3*G(0) where G(k) = 2 + x*(1 + x + x^2 + (1+x)*(1+x^2)*G(k+1)). - Sergei N. Gladkovskii, Jan 27 2013 [Edited by Michael Somos, Nov 12 2013]

A020857 Decimal expansion of log_2(3).

Original entry on oeis.org

1, 5, 8, 4, 9, 6, 2, 5, 0, 0, 7, 2, 1, 1, 5, 6, 1, 8, 1, 4, 5, 3, 7, 3, 8, 9, 4, 3, 9, 4, 7, 8, 1, 6, 5, 0, 8, 7, 5, 9, 8, 1, 4, 4, 0, 7, 6, 9, 2, 4, 8, 1, 0, 6, 0, 4, 5, 5, 7, 5, 2, 6, 5, 4, 5, 4, 1, 0, 9, 8, 2, 2, 7, 7, 9, 4, 3, 5, 8, 5, 6, 2, 5, 2, 2, 2, 8, 0, 4, 7, 4, 9, 1, 8, 0, 8, 8, 2, 4

Offset: 1

N. J. A. Sloane

The fractional part of the binary logarithm of 3 * 2^n (A007283) is the same as that of any number of the form log_2 (A007283(n)) (e.g., log_2(192) = 7.5849625...). Furthermore, a necessary but not sufficient condition for a number to be Fibbinary (A003714) is that the fractional part of its binary logarithm does not exceed that of this number. - Alonso del Arte, Jun 22 2012
Log_2(3)-1 = 0.58496... is the exponent in n^(log_2(3)-1), the asymptotic growth rate of the number of odd coefficients in (1+x)^n mod 2 (Cf. Steven Finch ref.). - Jean-François Alcover, Aug 13 2014
Equals the Hausdorff dimension of the Sierpiński triangle. - Stanislav Sykora, May 27 2015
The complexity of Karatsuba algorithm for the multiplication of two n-digit numbers is O(n^log_2(3)). - Jianing Song, Apr 28 2019

			log_2(3) = 1.5849625007211561814537389439...

John H. Conway and Richard K. Guy, The Book of Numbers, New York: Springer-Verlag, 1996. See pp. 24, 257.
Steven R. Finch, Mathematical Constants, Encyclopedia of Mathematics and its Applications, vol. 94, Cambridge University Press, 2003, Section 2.16, p. 145.

Vincenzo Librandi, Table of n, a(n) for n = 1..1000
E. G. Dunne, Pianos and Continued Fractions
Shalom Eliahou, Le problème 3n+1 : y a-t-il des cycles non triviaux? (III), Images des Mathématiques, CNRS, 2011 (in French).
Steven Finch, Pascal Sebah and Zai-Qiao Bai, Odd Entries in Pascal's Trinomial Triangle, arXiv:0802.2654 [math.NT], 2008, p. 1.
Karatsuba, The Complexity of Computations, Proceedings of the Steklov Institute of Mathematics, 1995: 169-183.
Youngik Lee, Numerical Approach on Collatz Conjecture, Preprints.org, Brown Univ., 2024. See p. 13.
Simon Plouffe, log(3)/log(2) to 10000 digits
A. M. Reiter, Determining the dimension of fractals generated by Pascal's triangle, Fibonacci Quart, 31(2):112-120, 1993.
Eric Weisstein's World of Mathematics, Stolarsky-Harborth Constant
Eric Weisstein's World of Mathematics, Pascal's Triangle
Eric Weisstein's World of Mathematics, Sierpiński Sieve
Wikipedia, Karatsuba algorithm
Wikipedia, Sierpinski triangle
Index entries for transcendental numbers

Cf. decimal expansion of log_2(m): this sequence, A020858 (m=5), A020859 (m=6), A020860 (m=7), A020861 (m=9), A020862 (m=10), A020863 (m=11), A020864 (m=12), A152590 (m=13), A154462 (m=14), A154540 (m=15), A154847 (m=17), A154905 (m=18), A154995 (m=19), A155172 (m=20), A155536 (m=21), A155693 (m=22), A155793 (m=23), A155921 (m=24).

Cf. A102525.

evalf(log[2](3), 100); # Bernard Schott, Feb 02 2023

RealDigits[Log[2, 3], 10, 100][[1]] (* Alonso del Arte, Jun 22 2012 *)

log(3)/log(2) \\ Michel Marcus, Jan 11 2016

Equals 1 / A102525. - Bernard Schott, Feb 02 2023

Comment generalized by J. Lowell, Apr 26 2014

A029747 Numbers of the form 2^k times 1, 3 or 5.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 8, 10, 12, 16, 20, 24, 32, 40, 48, 64, 80, 96, 128, 160, 192, 256, 320, 384, 512, 640, 768, 1024, 1280, 1536, 2048, 2560, 3072, 4096, 5120, 6144, 8192, 10240, 12288, 16384, 20480, 24576, 32768, 40960, 49152, 65536, 81920, 98304, 131072, 163840, 196608

Offset: 1

N. J. A. Sloane

Fixed points of the Doudna sequence: A005940(a(n)) = A005941(a(n)) = a(n). - Reinhard Zumkeller, Aug 23 2006
Subsequence of A103969. - R. J. Mathar, Mar 06 2010
Question: Is there a simple proof that A005940(c) = c would never allow an odd composite c as a solution? See also my comments in A163511 and in A335431 concerning similar problems, also A364551 and A364576. - Antti Karttunen, Jul 28 & Aug 11 2023

			128 = 2^7 * 1 is in the sequence as well as 160 = 2^5 * 5. - _David A. Corneth_, Sep 18 2020

David A. Corneth, Table of n, a(n) for n = 1..9963 (terms <= 10^1000)
Index entries for linear recurrences with constant coefficients, signature (0,0,2).

Cf. A122132, A000079, A007283, A020714, A130793.
Cf. A005940, A005941, A163511, A335431, A364499, A364551, A364576.
Subsequence of the following sequences: A103969, A253789, A364541, A364542, A364544, A364546, A364548, A364550, A364560, A364565.
Even terms form a subsequence of A320674.

m = 200000; Select[Union @ Flatten @ Outer[Times, {1, 3, 5}, 2^Range[0, Floor[Log2[m]]]], # < m &] (* Amiram Eldar, Oct 15 2020 *)

is(n) = n>>valuation(n, 2) <= 5 \\ David A. Corneth, Sep 18 2020

def A029747(n):
    if n<3: return n
    a, b = divmod(n,3)
    return 1<Chai Wah Wu, Apr 02 2025

a(n) = if n < 6 then n else 2*a(n-3). - Reinhard Zumkeller, Aug 23 2006
G.f.: (1+x+x^2)^2/(1-2*x^3). - R. J. Mathar, Mar 06 2010
Sum_{n>=1} 1/a(n) = 46/15. - Amiram Eldar, Oct 15 2020

Edited by David A. Corneth and Peter Munn, Sep 18 2020

A005009 a(n) = 7*2^n.

Original entry on oeis.org

7, 14, 28, 56, 112, 224, 448, 896, 1792, 3584, 7168, 14336, 28672, 57344, 114688, 229376, 458752, 917504, 1835008, 3670016, 7340032, 14680064, 29360128, 58720256, 117440512, 234881024, 469762048, 939524096, 1879048192, 3758096384

Offset: 0

N. J. A. Sloane

The first differences are the sequence itself. - Alexandre Wajnberg & Eric Angelini, Sep 07 2005

Vincenzo Librandi, Table of n, a(n) for n = 0..3000
Tanya Khovanova, Recursive Sequences
Index entries for linear recurrences with constant coefficients, signature (2).

Sequences of the form (2*m+1)*2^n: A000079 (m=0), A007283 (m=1), A020714 (m=2), this sequence (m=3), A005010 (m=4), A005015 (m=5), A005029 (m=6), A110286 (m=7), A110287 (m=8), A110288 (m=9), A175805 (m=10), A248646 (m=11), A164161 (m=12), A175806 (m=13), A257548 (m=15).
Row sums of (6, 1)-Pascal triangle A093563 and of (1, 6)-Pascal triangle A096956, n>=1.
Cf. A000120, A014311, A118416, A173787, A212191.

a005009 = (* 7) . (2 ^) -- Reinhard Zumkeller, May 03 2012

[7*2^n:n in [0..50]]; // Vincenzo Librandi, Sep 20 2011

7*2^Range[0,50] (* Vladimir Joseph Stephan Orlovsky, Mar 14 2011 *)
NestList[2#&,7,30] (* Harvey P. Dale, Aug 10 2024 *)

a(n)=7<Charles R Greathouse IV, Dec 22 2011

[7*2^n for n in range(51)] # G. C. Greubel, Jan 05 2023

G.f.: 7/(1-2*x).
a(n) = A118416(n+1,4) for n > 3. - Reinhard Zumkeller, Apr 27 2006
a(n) = 2*a(n-1), for n > 0, with a(0)=7 . - Philippe Deléham, Nov 23 2008
a(n) = 7 * A000079(n). - Omar E. Pol, Dec 16 2008
a(n) = A173787(n+3,n). - Reinhard Zumkeller, Feb 28 2010
Intersection of A014311 and A212191: all terms and their squares are the sum of exactly three distinct powers of 2, A000120(a(n)) = A000120(a(n)^2) = 3. - Reinhard Zumkeller, May 03 2012
G.f.: 2/x/G(0) - 1/x + 9, where G(k)= 1 + 1/(1 - x*(7*k+2)/(x*(7*k+9) + 1/G(k+1))); (continued fraction). - Sergei N. Gladkovskii, Jun 03 2013
E.g.f.: 7*exp(2*x). - Stefano Spezia, May 15 2021

A179070 a(1)=a(2)=a(3)=1, a(4)=3; thereafter a(n) = a(n-1) + a(n-3).

Original entry on oeis.org

1, 1, 1, 3, 4, 5, 8, 12, 17, 25, 37, 54, 79, 116, 170, 249, 365, 535, 784, 1149, 1684, 2468, 3617, 5301, 7769, 11386, 16687, 24456, 35842, 52529, 76985, 112827, 165356, 242341, 355168, 520524, 762865, 1118033, 1638557, 2401422, 3519455, 5158012, 7559434

Offset: 1

Mark Dols, Jun 27 2010

Also (essentially), coordination sequence for (2,4,infinity) tiling of hyperbolic plane. - N. J. A. Sloane, Dec 29 2015
Column sums of shifted (1,2) Pascal array:
1 1 1 1 1 1 1 1 1
......2 3 4 5 6 7
............2 5 9
.................
----------------- +
1 1 1 3 4 5 8 ...
a(n+1) is the number of multus bitstrings of length n with no runs of 2 0's. - Steven Finch, Mar 25 2020
From Areebah Mahdia and Greg Dresden, Jun 13 2020: (Start)
For n >= 5, a(n) gives the number of ways to tile the following board of length n-3 with squares and trominos:
. 
|||
|||_   _ _
|||_|||_|_| ... . (End)

Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
J. W. Cannon, P. Wagreich, Growth functions of surface groups, Mathematische Annalen, 1992, Volume 293, pp. 239-257. See Prop. 3.1.
Steven Finch, Cantor-solus and Cantor-multus distributions, arXiv:2003.09458 [math.CO], 2020.
Index entries for linear recurrences with constant coefficients, signature (1,0,1).

Cf. A000930, A029635, A097333, A214626.

Coordination sequences for triangular tilings of hyperbolic space: A001630, A007283, A054886, A078042, A096231, A163876, A179070, A265057, A265058, A265059, A265060, A265061, A265062, A265063, A265064, A265065, A265066, A265067, A265068, A265069, A265070, A265071, A265072, A265073, A265074, A265075, A265076, A265077.

a179070 n = a179070_list !! (n-1)
a179070_list = 1 : zs where zs = 1 : 1 : 3 : zipWith (+) zs (drop 2 zs)
-- Reinhard Zumkeller, Jul 23 2012

Join[{1}, LinearRecurrence[{1, 0, 1}, {1, 1, 3}, 80]] (* Vladimir Joseph Stephan Orlovsky, Feb 15 2012 *)

a(n)=([0,1,0; 0,0,1; 1,0,1]^(n-1)*[1;1;1])[1,1] \\ Charles R Greathouse IV, Apr 08 2016

a(n) = A000930(n-1) + A000930(n-4).
G.f.: x - x^2*(1+2*x^2) / ( -1+x+x^3 ). - R. J. Mathar, Oct 30 2011
a(n) = A000930(n-2)+2*A000930(n-4) for n>3. - R. J. Mathar, May 19 2024

Simpler definition from N. J. A. Sloane, Aug 29 2013

A055010 a(0) = 0; for n > 0, a(n) = 3*2^(n-1) - 1.

Original entry on oeis.org

0, 2, 5, 11, 23, 47, 95, 191, 383, 767, 1535, 3071, 6143, 12287, 24575, 49151, 98303, 196607, 393215, 786431, 1572863, 3145727, 6291455, 12582911, 25165823, 50331647, 100663295, 201326591, 402653183, 805306367, 1610612735, 3221225471, 6442450943, 12884901887

Offset: 0

Henry Bottomley, May 31 2000

Apart from leading term (which should really be 3/2), same as A083329.
Written in binary, a(n) is 1011111...1.
The sequence 2, 5, 11, 23, 47, 95, ... apparently gives values of n such that Nim-factorial(n) = 2. Cf. A059970. However, compare A060152. More work is needed! - John W. Layman, Mar 09 2001
With offset 1, number of (132,3412)-avoiding two-stack sortable permutations.
Number of descents after n+1 iterations of morphism A007413.
a(n) = A164874(n,1), n>0; subsequence of A030130. - Reinhard Zumkeller, Aug 29 2009
Let A be the Hessenberg matrix of order n, defined by: A[1,j]=[i,i]:=1, A[i,i-1]=-1, and A[i,j]=0 otherwise. Then, for n>=1, a(n-1)=(-1)^n*charpoly(A,-1). - Milan Janjic, Jan 24 2010
a(n) is the total number of records over all length n binary words. A record in a word a_1,a_2,...,a_n is a letter a_j that is larger than all the preceding letters. That is, a_j>a_i for all iGeoffrey Critzer, Jul 18 2020
Called Thabit numbers after the Syrian mathematician Thābit ibn Qurra (826 or 836 - 901). - Amiram Eldar, Jun 08 2021
a(n) is the number of objects in a pile that represents a losing position in a Nim game, where a player must select at least one object but not more than half of the remaining objects, on their turn. - Kiran Ananthpur Bacche, Feb 03 2025

			a(3) = 3*2^2 - 1 = 3*4 - 1 = 11.

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Eric S. Egge and Toufik Mansour, 132-avoiding Two-stack Sortable Permutations, Fibonacci Numbers, and Pell Numbers, arXiv:math/0205206 [math.CO], 2002.
Sergey Kitaev and Toufik Mansour, Counting the occurrences of generalized patterns in words generated by a morphism, arXiv:math/0210170 [math.CO], 2002.
Hunar Sherzad Taher and Saroj Kumar Dash, On sums of k-generalized Fibonacci and k-generalized Lucas numbers as first and second kinds of Thabit numbers, Notes Num. Theor. Disc. Math. (2025) Vol. 31, No. 3, 448-459. See p. 2.
Eric Weisstein's World of Mathematics, Thabit ibn Kurrah Number.
Wikipedia, Thabit number.
Index entries for linear recurrences with constant coefficients, signature (3,-2).

Cf. A007505 for primes in this sequence. Apart from initial term, same as A052940 and A083329.
Cf. A266550 (independence number of the n-Mycielski graph).
Cf. A000079, A000225, A007283, A007413, A010036, A030130, A033484, A059970, A060152, A099258, A118654, A164874, A196168.

Concatenation([0], List([1..35], n-> 3*2^(n-1)-1)); # G. C. Greubel, May 06 2019

[Floor(3*2^(n-1) - 1): n in [0..35]]; // Vincenzo Librandi, May 18 2011

Join[{0},3*2^Range[0,34]-1] (* Harvey P. Dale, May 05 2013 *)

a(n)=3*2^n\2 - 1 \\ Charles R Greathouse IV, Apr 08 2016

[0]+[3*2^(n-1)-1 for n in (1..35)] # G. C. Greubel, May 06 2019

a(n) = A118654(n-1, 4), for n > 0.
a(n) = 2*a(n-1) + 1 = a(n-1) + A007283(n-1) = A007283(n)-1 = A000079(n) + A000225(n + 1) = A000079(n + 1) + A000225(n) = 3*A000079(n) - 1 = 3*A000225(n) + 2.
a(n) = A010036(n)/2^(n-1). - Philippe Deléham, Feb 20 2004
a(n) = A099258(A033484(n)-1) = floor(A033484(n)/2). - Reinhard Zumkeller, Oct 09 2004
G.f.: x*(2-x)/((1-x)*(1-2*x)). - Philippe Deléham, Oct 04 2011
a(n+1) = A196168(A000079(n)). - Reinhard Zumkeller, Oct 28 2011
E.g.f.: (3*exp(2*x) - 2*exp(x) - 1)/2. - Stefano Spezia, Sep 14 2024

A181565 a(n) = 3*2^n + 1.

Original entry on oeis.org

4, 7, 13, 25, 49, 97, 193, 385, 769, 1537, 3073, 6145, 12289, 24577, 49153, 98305, 196609, 393217, 786433, 1572865, 3145729, 6291457, 12582913, 25165825, 50331649, 100663297, 201326593, 402653185, 805306369, 1610612737, 3221225473

Offset: 0

M. F. Hasler, Oct 30 2010

From Peter Bala, Oct 28 2013: (Start)
Let x and b be positive real numbers. We define an Engel expansion of x to the base b to be a (possibly infinite) nondecreasing sequence of positive integers [a(1), a(2), a(3), ...] such that we have the series representation x = b/a(1) + b^2/(a(1)*a(2)) + b^3/(a(1)*a(2)*a(3)) + .... Depending on the values of x and b such an expansion may not exist, and if it does exist it may not be unique. When b = 1 we recover the ordinary Engel expansion of x.
This sequence gives an Engel expansion of 2/3 to the base 2, with the associated series expansion 2/3 = 2/4 + 2^2/(4*7) + 2^3/(4*7*13) + 2^4/(4*7*13*25) + ....
More generally, for n and m positive integers, the sequence [m + 1, n*m + 1, n^2*m + 1, ...] gives an Engel expansion of the rational number n/m to the base n. See the cross references for several examples. (End)
The only squares in this sequence are 4, 25, 49. - Antti Karttunen, Sep 24 2023

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Solomon W. Golomb, Properties of the sequence 3.2^n+1, Math. Comp., 30 (1976), 657-663.
Solomon W. Golomb, Properties of the sequence 3.2^n+1, Math. Comp., 30 (1976), 657-663. [Annotated scanned copy]
Hunar Sherzad Taher and Saroj Kumar Dash, On sums of k-generalized Fibonacci and k-generalized Lucas numbers as first and second kinds of Thabit numbers, Notes Num. Theor. Disc. Math. (2025) Vol. 31, No. 3, 448-459. See p. 2.
Wikipedia, Engel Expansion
Index entries for linear recurrences with constant coefficients, signature (3,-2)

Cf. A007283, A020737, A083575, A083683, A083686, A168596, A083705, A195744.
Essentially a duplicate of A004119.
A002253 and A039687 give the primes in this sequence, and A181492 is the subsequence of twin primes.

[3*2^n + 1: n in [0..30]]; // Vincenzo Librandi, May 19 2011

3*2^Range[0,50]+1 (* Vladimir Joseph Stephan Orlovsky, Mar 24 2011 *)
LinearRecurrence[{3,-2},{4,7},40] (* Harvey P. Dale, Sep 19 2024 *)

PARI
```
A181565(n)=3<
				
```

a(n) = A004119(n+1) = A103204(n+1) for all n >= 0.
From Ilya Gutkovskiy, Jun 01 2016: (Start)
O.g.f.: (4 - 5*x)/((1 - x)*(1 - 2*x)).
E.g.f.: (1 + 3*exp(x))*exp(x).
a(n) = 3*a(n-1) - 2*a(n-2). (End)
a(n) = 2*a(n-1) - 1. - Miquel Cerda, Aug 16 2016
For n >= 0, A005940(a(n)) = A001248(1+n). - Antti Karttunen, Sep 24 2023

A060546 a(n) = 2^ceiling(n/2).

Original entry on oeis.org

1, 2, 2, 4, 4, 8, 8, 16, 16, 32, 32, 64, 64, 128, 128, 256, 256, 512, 512, 1024, 1024, 2048, 2048, 4096, 4096, 8192, 8192, 16384, 16384, 32768, 32768, 65536, 65536, 131072, 131072, 262144, 262144, 524288, 524288, 1048576, 1048576, 2097152, 2097152

Offset: 0

André Barbé (Andre.Barbe(AT)esat.kuleuven.ac.be), Apr 03 2001

a(n) is also the number of median-reflective (palindrome) symmetric patterns in a top-down equilateral triangular arrangement of closely packed black and white cells satisfying the local matching rule of Pascal's triangle modulo 2, where n is the number of cells in each edge of the arrangement. The matching rule is such that any elementary top-down triangle of three neighboring cells in the arrangement contains either one or three white cells.
The number of possibilities for an n-game (sub)set of tennis with neither player gaining a 2-game advantage. (Motivated by the marathon Isner-Mahut match at Wimbledon, 2010.) - Barry Cipra, Jun 28 2010
Number of achiral rows of n colors using up to two colors. For a(3)=4, the rows are AAA, ABA, BAB, and BBB. - Robert A. Russell, Nov 07 2018
Also the number of walks of length n on the graph x--y--z starting at y. - Sean A. Irvine, May 30 2025

Harry J. Smith, Table of n, a(n) for n = 0..500
A. Barbé, Symmetric patterns in the cellular automaton that generates Pascal's triangle modulo 2, Discr. Appl. Math. 105(2000), 1-38.
Index entries for sequences related to cellular automata
Index to divisibility sequences
Index entries for linear recurrences with constant coefficients, signature (0,2).

Column k=2 of A321391.
Cf. A016116, A008619.
Cf. A000079 (oriented), A005418(n+1) (unoriented), A122746(n-2) (chiral).
The following sequences are all essentially the same, in the sense that they are simple transformations of each other, with A029744 = {s(n), n>=1}, the numbers 2^k and 3*2^k, as the parent: A029744 (s(n)); A052955 (s(n)-1), A027383 (s(n)-2), A354788 (s(n)-3), A347789 (s(n)-4), A209721 (s(n)+1), A209722 (s(n)+2), A343177 (s(n)+3), A209723 (s(n)+4); A060482, A136252 (minor differences from A354788 at the start); A354785 (3*s(n)), A354789 (3*s(n)-7). The first differences of A029744 are 1,1,1,2,2,4,4,8,8,... which essentially matches eight sequences: A016116, A060546, A117575, A131572, A152166, A158780, A163403, A320770. The bisections of A029744 are A000079 and A007283. - N. J. A. Sloane, Jul 14 2022

[2^Ceiling(n/2): n in [0..50]]; // G. C. Greubel, Nov 07 2018

for n from 0 to 100 do printf(`%d,`,2^ceil(n/2)) od:

2^Ceiling[Range[0,50]/2] (* or *) Riffle[2^Range[0, 25], 2^Range[25]] (* Harvey P. Dale, Mar 05 2013 *)
LinearRecurrence[{0, 2}, {1, 2}, 40] (* Robert A. Russell, Nov 07 2018 *)

a(n) = { 2^ceil(n/2) } \\ Harry J. Smith, Jul 06 2009

a(n) = 2^ceiling(n/2).
a(n) = A016116(n+1) for n >= 1.
a(n) = 2^A008619(n-1) for n >= 1.
G.f.: (1 + 2*x) / (1 - 2*x^2). - Ralf Stephan, Jul 15 2013
E.g.f.: cosh(sqrt(2)*x) + sqrt(2)*sinh(sqrt(2)*x). - Stefano Spezia, Feb 02 2023

More terms from James Sellers, Apr 04 2001
a(0)=1 prepended by Robert A. Russell, Nov 07 2018
Edited by N. J. A. Sloane, Nov 10 2018

A005010 a(n) = 9*2^n.

Original entry on oeis.org

9, 18, 36, 72, 144, 288, 576, 1152, 2304, 4608, 9216, 18432, 36864, 73728, 147456, 294912, 589824, 1179648, 2359296, 4718592, 9437184, 18874368, 37748736, 75497472, 150994944, 301989888, 603979776, 1207959552, 2415919104, 4831838208, 9663676416, 19327352832

Offset: 0

N. J. A. Sloane, Jun 14 1998

Row sums of (8, 1)-Pascal triangle A093565. - N. J. A. Sloane, Sep 22 2004
The first differences are the sequence itself. - Alexandre Wajnberg & Eric Angelini, Sep 07 2005
For n>=1, a(n) is equal to the number of functions f:{1,2,...,n+2}->{1,2,3} such that for fixed, different x_1, x_2,...,x_n in {1,2,...,n+2} and fixed y_1, y_2,...,y_n in {1,2,3} we have f(x_i)<>y_i, (i=1,2,...,n). - Milan Janjic, May 10 2007
9 times powers of 2. - Omar E. Pol, Dec 16 2008
a(n) = A173786(n+3,n) for n>2. - Reinhard Zumkeller, Feb 28 2010
Let D(m) = {d(m,i)}, i = 1..q, denote the set of the q divisors of a number m, and consider s0(m) and s1(m) the sums of the divisors that are congruent to 2 and 3 (mod 4) respectively. For n>0, the sequence a(n) lists the numbers m such that s0(m) = 26 and s1(m) = 3. - Michel Lagneau, Feb 10 2017

Mia Boudreau, Table of n, a(n) for n = 0..3000 (first 236 terms from Vincenzo Librandi)
Milan Janjic, Enumerative Formulas for Some Functions on Finite Sets
Tanya Khovanova, Recursive Sequences
Index entries for linear recurrences with constant coefficients, signature (2).

Cf. A000079, A093565, A173786, A118416, A007283.

[9*2^n: n in [0..40]]; // Vincenzo Librandi, Apr 28 2011

9*2^Range[0, 60] (* Vladimir Joseph Stephan Orlovsky, Jun 09 2011 *)

a(n)=9<Charles R Greathouse IV, Apr 17 2012

a(n) = 9*2^n.
G.f.: 9/(1-2*x).
a(n) = A118416(n+1,5) for n>4. - Reinhard Zumkeller, Apr 27 2006
a(n) = 2*a(n-1), n>0; a(0)=9. - Philippe Deléham, Nov 23 2008
a(n) = 9*A000079(n). - Omar E. Pol, Dec 16 2008
a(n) = 3*A007283(n). - Omar E. Pol, Jul 14 2015
E.g.f.: 9*exp(2*x). - Elmo R. Oliveira, Aug 16 2024

cp's OEIS Frontend

A070003 Numbers divisible by the square of their largest prime factor.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PARI

PARI

Python

Formula

Extensions

A001630 Tetranacci numbers: a(n) = a(n-1) + a(n-2) + a(n-3) + a(n-4), with a(0)=a(1)=0, a(2)=1, a(3)=2.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Formula

A020857 Decimal expansion of log_2(3).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A029747 Numbers of the form 2^k times 1, 3 or 5.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Python

Formula

Extensions

A005009 a(n) = 7*2^n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Magma

Mathematica

PARI

SageMath

Formula

A179070 a(1)=a(2)=a(3)=1, a(4)=3; thereafter a(n) = a(n-1) + a(n-3).

Views

Author

Keywords

Comments