A060482 -id:A060482 - cp's OEIS frontend

A354785 Numbers of the form 32^k or 92^k.

3, 6, 9, 12, 18, 24, 36, 48, 72, 96, 144, 192, 288, 384, 576, 768, 1152, 1536, 2304, 3072, 4608, 6144, 9216, 12288, 18432, 24576, 36864, 49152, 73728, 98304, 147456, 196608, 294912, 393216, 589824, 786432, 1179648, 1572864, 2359296, 3145728, 4718592, 6291456, 9437184, 12582912, 18874368, 25165824, 37748736, 50331648

Offset: 1

N. J. A. Sloane, Jul 12 2022

Index entries for linear recurrences with constant coefficients, signature (0,2).

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.

seq[max_] := Union[Table[3*2^n, {n, 0, Floor[Log2[max/3]]}], Table[9*2^n, {n, 0, Floor[Log2[max/9]]}]]; seq[10^8] (* Amiram Eldar, Jan 16 2024 *)

Sum_{n>=1} 1/a(n) = 8/9. - Amiram Eldar, Jan 16 2024

G.f.: (3*x^2+6*x+3)/(1-2*x^2). - Georg Fischer, Apr 10 2025

A164090 a(n) = 2*a(n-2) for n > 2; a(1) = 2, a(2) = 3.

Original entry on oeis.org

2, 3, 4, 6, 8, 12, 16, 24, 32, 48, 64, 96, 128, 192, 256, 384, 512, 768, 1024, 1536, 2048, 3072, 4096, 6144, 8192, 12288, 16384, 24576, 32768, 49152, 65536, 98304, 131072, 196608, 262144, 393216, 524288, 786432, 1048576, 1572864, 2097152, 3145728

Offset: 1

Klaus Brockhaus, Aug 09 2009

Interleaving of A000079 without initial 1 and A007283.
Agrees from a(2) onward with A145751 for all terms listed there (up to 65536). Apparently equal to 2, 3 followed by A090989. Equals 2 followed by A163978.
Binomial transform is A000129 without first two terms, second binomial transform is A020727, third binomial transform is A164033, fourth binomial transform is A164034, fifth binomial transform is A164035.
Number of achiral necklaces or bracelets with n beads using up to 2 colors. For n=5, the eight achiral necklaces or bracelets are AAAAA, AAAAB, AAABB, AABAB, AABBB, ABABB, ABBBB, and BBBBB. - Robert A. Russell, Sep 22 2018

Vincenzo Librandi, Table of n, a(n) for n = 1..2000
Index entries for linear recurrences with constant coefficients, signature (0,2).

Cf. A000079 (powers of 2), A007283 (3*2^n), A029744, A145751, A090989, A163978, A000129, A020727, A164033, A164034, A164035, A052955, A027383, A060482, A070875.

Second column of A284855.

[ n le 2 select n+1 else 2*Self(n-2): n in [1..42] ];

a[n_] := If[EvenQ[n], 3*2^(n/2 - 1), 2^((n + 1)/2)]; Array[a, 42] (* Jean-François Alcover, Oct 12 2017 *)
RecurrenceTable[{a[1]==2,a[2]==3,a[n]==2a[n-2]},a,{n,50}] (* or *) LinearRecurrence[{0,2},{2,3},50] (* Harvey P. Dale, Mar 01 2018 *)

a(n) = if(n%2,2,3) * 2^((n-1)\2); \\ Andrew Howroyd, Oct 07 2017

a(n) = A029744(n+1).
a(n) = A052955(n-1) + 1.
a(n) = A027383(n-2) + 2 for n > 1.
a(n) = A060482(n-1) + 3 for n > 3.
a(n) = A070875(n) - A070875(n-1).
a(n) = (7 - (-1)^n)*2^((1/4)*(2*n - 1 + (-1)^n))/4.
G.f.: x*(2+3*x)/(1-2*x^2).
a(n) = A063759(n-1), n>1. - R. J. Mathar, Aug 17 2009
Sum_{n>=1} 1/a(n) = 5/3. - Amiram Eldar, Mar 28 2022

A060030 a(1) = 1, a(2) = 2; thereafter a "hole" is defined to be any positive number not in the sequence a(1)..a(n-1) and less than the largest term; if there exists at least one hole, then a(n) is the largest hole, otherwise a(n) = a(n-2) + a(n-1).

Original entry on oeis.org

1, 2, 3, 5, 4, 9, 8, 7, 6, 13, 12, 11, 10, 21, 20, 19, 18, 17, 16, 15, 14, 29, 28, 27, 26, 25, 24, 23, 22, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 93, 92, 91, 90, 89, 88, 87, 86, 85, 84, 83

Offset: 1

William Nelles (wnelles(AT)flashmail.com), Mar 17 2001

A self-inverse permutation of the natural numbers: a(a(n)) = n and a(n) <> n for n > 3. [Reinhard Zumkeller, Apr 29 2012]

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Index entries for sequences that are permutations of the natural numbers

See A060482 for successive records, A027383 for the final hole-filling values, A016116 for the difference between top and bottom of downward subsequences, A052551 for number of terms in downward subsequences.

Cf. A060000, A000045.

import Data.List (delete)
a060030 n = a060030_list !! (n-1)
a060030_list = 1 : 2 : f 1 2 [3..] where
   f u v ws = y : f v y (delete y ws) where
     y = if null xs then u + v else last xs
     xs = takeWhile (< v) ws
-- Reinhard Zumkeller, Apr 29 2012

a[1] = 1; a[2] = 2;
a[n_] := a[n] = Module[{A, H}, A = Array[a, n-1]; H = Complement[ Range[a[n-1]], A]; If[H != {}, H[[-1]], a[n-2] + a[n-1]]];
Table[a[n], {n, 1, 100}] (* Jean-François Alcover, Apr 23 2024 *)

Offset corrected by Reinhard Zumkeller, Apr 29 2012

Name made more explicit by Jean-François Alcover, Apr 23 2024

A279389 3 times Mersenne primes A000668.

Original entry on oeis.org

9, 21, 93, 381, 24573, 393213, 1572861, 6442450941, 6917529027641081853, 1856910058928070412348686333, 486777830487640090174734030864381, 510423550381407695195061911147652317181

Offset: 1

Omar E. Pol, Dec 20 2016

nonn

Also sum of n-th Mersenne prime and the radical of n-th even perfect number.

The binary representation of a(n) has only two zeros, starting with "10" and ending with "01". The sequence begins: 1001, 10101, 1011101, 101111101, 101111111111101,...

Cf. A000010, A000203, A000396, A000668, A051027, A147757.
Subsequence of A001748, and of A147758, and of A174055, and possibly of other sequences, see below:
Cf. A060482, A068156, A072087, A136252, A144482, A144856, A249780, A269633.

a(n) = 3*A000668(n) = A000668(n) + A139257(n).

a(n) = phi(M(n)) + sigma(sigma(M(n))) = A000010(A000668(n)) + A000203(A000203(A000668(n))) = A000010(A000668(n)) + A051027(A000668(n)).

cp's OEIS Frontend

A354785 Numbers of the form 32^k or 92^k.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A164090 a(n) = 2*a(n-2) for n > 2; a(1) = 2, a(2) = 3.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A060030 a(1) = 1, a(2) = 2; thereafter a "hole" is defined to be any positive number not in the sequence a(1)..a(n-1) and less than the largest term; if there exists at least one hole, then a(n) is the largest hole, otherwise a(n) = a(n-2) + a(n-1).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Mathematica

Extensions

A279389 3 times Mersenne primes A000668.

Views

Author

Keywords

Comments

Crossrefs

Formula

cp's OEIS Frontend

A354785 Numbers of the form 3*2^k or 9*2^k.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A164090 a(n) = 2*a(n-2) for n > 2; a(1) = 2, a(2) = 3.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A060030 a(1) = 1, a(2) = 2; thereafter a "hole" is defined to be any positive number not in the sequence a(1)..a(n-1) and less than the largest term; if there exists at least one hole, then a(n) is the largest hole, otherwise a(n) = a(n-2) + a(n-1).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Mathematica

Extensions

A279389 3 times Mersenne primes A000668.

Views

Author

Keywords

Comments

Crossrefs

Formula

A354785 Numbers of the form 32^k or 92^k.