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.

Previous Showing 31-40 of 88 results. Next

A079313 a(n) is taken to be the smallest positive integer not already present which is consistent with the condition "n is a member of the sequence if and only if a(n) is odd".

Original entry on oeis.org

1, 3, 5, 2, 7, 8, 9, 11, 13, 12, 15, 17, 19, 16, 21, 23, 25, 20, 27, 29, 31, 24, 33, 35, 37, 28, 39, 41, 43, 32, 45, 47, 49, 36, 51, 53, 55, 40, 57, 59, 61, 44, 63, 65, 67, 48, 69, 71, 73, 52, 75, 77, 79, 56, 81, 83, 85, 60, 87, 89, 91, 64, 93, 95, 97, 68, 99, 101, 103, 72, 105
Offset: 1

Views

Author

J. C. Lagarias and N. J. A. Sloane, Feb 11 2003

Keywords

Comments

The sequence obeys the rule: "The concatenation of a(n) and a(a(n)) is odd". Example: "1" and the 1st term, concatenated, is 11; "3" and the 3rd term, concatenated, is 35; "5" and the 5th term, concatenated, is 57; "2" and the 2nd term, concatenated, is 23; etc.

Crossrefs

Programs

  • Mathematica
    Rest@ CoefficientList[Series[x*(-3*x^11 + 2*x^10 - x^9 + 7*x^7 - x^6 + 2*x^5 + 5*x^4 + 2*x^3 + 5*x^2 + 3*x + 1)/(x^8 - 2*x^4 + 1), {x, 0, 120}], x] (* Michael De Vlieger, Dec 17 2024 *)

Formula

For n >= 5 a(n) is given by: a(4t-2) = 4t, a(4t-1) = 6t-3, a(4t) = 6t-1, a(4t+1) = 6t+1.
All odd numbers occur; the only even numbers which occur are 2 and the multiples of 4 excluding 4 itself.
From Chai Wah Wu, Apr 13 2024: (Start)
a(n) = 2*a(n-4) - a(n-8) for n > 12.
G.f.: x*(-3*x^11 + 2*x^10 - x^9 + 7*x^7 - x^6 + 2*x^5 + 5*x^4 + 2*x^3 + 5*x^2 + 3*x + 1)/(x^8 - 2*x^4 + 1). (End)

Extensions

More terms from Matthew Vandermast, Mar 20 2003

A181155 Odious numbers (A000069) plus one; complement of A026147.

Original entry on oeis.org

2, 3, 5, 8, 9, 12, 14, 15, 17, 20, 22, 23, 26, 27, 29, 32, 33, 36, 38, 39, 42, 43, 45, 48, 50, 51, 53, 56, 57, 60, 62, 63, 65, 68, 70, 71, 74, 75, 77, 80, 82, 83, 85, 88, 89, 92, 94, 95, 98, 99, 101, 104, 105, 108, 110, 111, 113, 116, 118, 119, 122, 123, 125, 128, 129, 132
Offset: 1

Views

Author

Matthew Vandermast, Oct 06 2010

Keywords

Comments

a(n) = position of n-th 2 in A001285 if offset for A001285 is given as 1.
It appears that this sequence and A026147 index each other's even terms (i.e., a(n) = position of n-th even term in A026147, and A026147(n) = position of n-th even term in this sequence). It also appears that each of the two sequences indexes its own odd terms (cf. A079000).
Barbeau notes that if let A = the first 2^k terms of A026147 and B = the first 2^k terms of this sequence, then the two sets have the same sum of powers for first up to the k-th power. I note it holds for 0th power also. - Michael Somos, Jun 09 2013

Examples

			Let k=2. Then A = {1,4,6,7} and B = {2,3,5,8} have the property that 1^0+4^0+6^0+7^0 = 2^0+3^0+5^0+8^0 = 4, 1^1+4^1+6^1+7^1 = 2^1+3^1+5^1+8^1 = 18, and 1^2+4^2+6^2+7^2 = 2^2+3^2+5^2+8^2 = 102. - _Michael Somos_, Jun 09 2013
		

Crossrefs

Cf. A026147.

Programs

  • Mathematica
    a[ n_] := If[ n < 1, 0, 2 n - Mod[ Total[ IntegerDigits[ n - 1, 2]], 2]] (* Michael Somos, Jun 09 2013 *)
  • PARI
    a(n)=2*n-hammingweight(n-1)%2 \\ Charles R Greathouse IV, Mar 22 2013
    
  • PARI
    {a(n) = if( n<1, 0, 2*n - subst( Pol( binary( n-1)), x, 1)%2)} /* Michael Somos, Jun 09 2013 */
    
  • Python
    def A181155(n): return 1+((m:=n-1)<<1)+(m.bit_count()&1^1) # Chai Wah Wu, Mar 03 2023

Formula

a(n) = A000069(n) + 1.
a(a(n)-1) = 2*a(n)-1. - Benoit Cloitre, Oct 07 2010
a(n) + A010060(n+1) = 2n + 2 for n >= 0. - Clark Kimberling, Oct 06 2014

A080637 a(n) is the smallest positive integer which is consistent with the sequence being monotonically increasing and satisfying a(1)=2, a(a(n)) = 2n+1 for n > 1.

Original entry on oeis.org

2, 3, 5, 6, 7, 9, 11, 12, 13, 14, 15, 17, 19, 21, 23, 24, 25, 26, 27, 28, 29, 30, 31, 33, 35, 37, 39, 41, 43, 45, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 96, 97, 98, 99, 100, 101, 102
Offset: 1

Views

Author

N. J. A. Sloane and Benoit Cloitre, Feb 28 2003

Keywords

Comments

Sequence is the unique monotonic sequence satisfying a(a(n)) = 2n+1.
Except for the first term, numbers (greater than 2) whose binary representation starts with 11 or ends with 1. - Yifan Xie, May 26 2022

Examples

			From _Yifan Xie_, May 02 2022: (Start)
a(8) = 12 because 2*2^2 <= 8 < 3*2^2, hence a(8) = 8 + 2^2 = 12;
a(13) = 19 because 3*2^2 <= 13 < 4*2^2, hence a(13) = 2*(13 - 2^2) + 1 = 19. (End)
		

Crossrefs

Except for first term, same as A079905. Cf. A079000.
A007378, A079905, A080637, A080653 are all essentially the same sequence.
Equals A007378(n+1)-1. First differences give A079882.
Unique monotonic sequence of positive integers satisfying a(a(n)) = k*(n-1) + 3: this sequence (k=2), A003605 (k=3), A353651 (k=4), A353652 (k=5), A353653 (k=6).

Programs

  • Maple
    t := []; for k from 0 to 6 do for j from -2^k to 2^k-1 do t := [op(t), 4*2^k - 1 + 3*j/2 + abs(j)/2]; od: od: t;
  • Mathematica
    b[n_] := b[n] = If[n<4, n+1, If[OddQ[n], b[(n-1)/2+1]+b[(n-1)/2], 2b[n/2]]];
    a[n_] := b[n+1]-1;
    a /@ Range[70] (* Jean-François Alcover, Oct 31 2019 *)

Formula

a(3*2^k - 1 + j) = 4*2^k - 1 + 3*j/2 + |j|/2 for k >= 0, -2^k <= j < 2^k.
a(2n+1) = 2*a(n) + 1, a(2n) = a(n) + a(n-1) + 1.
From Yifan Xie, May 02 2022: (Start)
For n in the range 2*2^i <= n < 3*2^i, for i >= 0:
a(n) = n + 2^i.
a(n) = 1 + a(n-1).
Otherwise, for n in the range 3*2^i <= n < 4*2^i, for i >= 0:
a(n) = 2*(n - 2^i) + 1.
a(n) = 2 + a(n-1). (End)

A079905 a(1)=1; then a(n) is smallest positive integer which is consistent with sequence being monotonically increasing and satisfying a(a(n)) = 2n+1 for n>1.

Original entry on oeis.org

1, 3, 5, 6, 7, 9, 11, 12, 13, 14, 15, 17, 19, 21, 23, 24, 25, 26, 27, 28, 29, 30, 31, 33, 35, 37, 39, 41, 43, 45, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 96, 97, 98, 99, 100, 101, 102
Offset: 1

Views

Author

N. J. A. Sloane, Feb 21 2003

Keywords

Comments

Alternate definition: a(n) is taken to be smallest positive integer greater than a(n-1) such that the condition "a(a(n)) is always odd" can be satisfied. - Matthew Vandermast, Mar 03 2003
Also: a(n)=smallest positive integer > a(n-1) such that the condition "n is in the sequence if and only if a(n) is even" is false; that is, the condition "either n is not in the sequence and a(n) is odd or n is in the sequence and a(n) is even" is satisfied. - Matthew Vandermast, Mar 05 2003

Crossrefs

See A080637 for a nicer version. Cf. A079000.
Equals A007378(n+1)-1, n>1.
A007378, A079905, A080637, A080653 are all essentially the same sequence.
Union of A079946 and A005408 (the odd numbers).

Programs

Formula

a(1)=1, a(2)=3, then a(3*2^k - 1 + j) = 4*2^k - 1 + 3j/2 + |j|/2 for k >= 1, -2^k <= j < 2^k.
a(n) = 1+A079945(n-1)-A079944(n-1) for n>1, a(1)=1. - Antonio G. Astudillo (afg_astudillo(AT)hotmail.com), Feb 23 2003

Extensions

More terms from Antonio G. Astudillo (afg_astudillo(AT)hotmail.com), Feb 23 2003

A080653 a(1) = 2; for n>1, a(n) is taken to be the smallest integer greater than a(n-1) such that the condition "a(a(n)) is always even" is satisfied.

Original entry on oeis.org

2, 4, 5, 6, 8, 10, 11, 12, 13, 14, 16, 18, 20, 22, 23, 24, 25, 26, 27, 28, 29, 30, 32, 34, 36, 38, 40, 42, 44, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 95, 96, 97
Offset: 1

Views

Author

Matthew Vandermast, Mar 01 2003

Keywords

Comments

Also defined by: a(n) = smallest positive number > a(n-1) such that the condition "n is in sequence if and only if a(n) is odd" is false (cf. A079000); that is, the condition "either n is not in the sequence and a(n) is odd or n is in the sequence and a(n) is even" is satisfied.
If prefixed with a(0) = 0, can be defined by: a(n) = smallest nonnegative number > a(n-1) such that the condition "n is in sequence only if a(n) is even" is satisfied.
Lower density 2/3, upper density 3/4. - Charles R Greathouse IV, Dec 14 2022

References

  • Hsien-Kuei Hwang, S Janson, TH Tsai, Exact and asymptotic solutions of the recurrence f(n) = f(floor(n/2)) + f(ceiling(n/2)) + g(n): theory and applications, Preprint, 2016; http://140.109.74.92/hk/wp-content/files/2016/12/aat-hhrr-1.pdf. Also Exact and Asymptotic Solutions of a Divide-and-Conquer Recurrence Dividing at Half: Theory and Applications, ACM Transactions on Algorithms, 13:4 (2017), #47; DOI: 10.1145/3127585

Crossrefs

Equals A007378 - 2.
A007378, A079905, A080637, A080653 are all essentially the same sequence.

Programs

  • Mathematica
    (* b = A007378 *) b[n_] := b[n] = Which[n == 2, 3, n == 3, 4, EvenQ[n], 2 b[n/2], True, b[(n-1)/2+1]+b[(n-1)/2]]; a[1] = 2; a[n_] := b[n+2]-2; Table[a[n], {n, 1, 65}] (* Jean-François Alcover, Oct 05 2016 *)

Formula

a(a(n)) = 2n + 2. - Yifan Xie, Jul 14 2022
a(n+1) - a(n) is in {1, 2}. In particular, n < a(n) <= 2n. More is true: lim inf a(n)/n = 4/3 and lim sup a(n)/n = 3/2. - Charles R Greathouse IV, Dec 14 2022

A080720 a(0) = 5; for n>0, a(n) is taken to be the smallest positive integer greater than a(n-1) which is consistent with the condition "n is a member of the sequence if and only if a(n) is a multiple of 3".

Original entry on oeis.org

5, 7, 8, 10, 11, 12, 13, 15, 18, 19, 21, 24, 27, 30, 31, 33, 34, 35, 36, 39, 40, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 54, 55, 57, 60, 63, 66, 67, 68, 69, 72, 73, 75, 78, 81, 84, 87, 90, 93, 96, 99, 102, 103, 104, 105, 108, 109, 111, 112, 113, 114, 115, 116, 117, 118, 119
Offset: 0

Views

Author

N. J. A. Sloane, Mar 05 2003

Keywords

Crossrefs

Programs

  • PARI
    {a=5; m=[5]; for(n=1,66,print1(a,","); a=a+1; if(m[1]==n, while(a%3>0,a++); m=if(length(m)==1,[],vecextract(m,"2..")),if(a%3==0,a++)); m=concat(m,a))}

Formula

a(a(n)) = 3*(n+4).

Extensions

More terms and PARI code from Klaus Brockhaus, Mar 07 2003

A080032 a(n) is taken to be the smallest positive integer not already present which is consistent with the condition "n is a member of the sequence if and only if a(n) is even".

Original entry on oeis.org

0, 2, 4, 1, 6, 7, 8, 10, 12, 11, 14, 16, 18, 15, 20, 22, 24, 19, 26, 28, 30, 23, 32, 34, 36, 27, 38, 40, 42, 31, 44, 46, 48, 35, 50, 52, 54, 39, 56, 58, 60, 43, 62, 64, 66, 47, 68, 70, 72, 51, 74, 76, 78, 55, 80, 82, 84, 59, 86, 88, 90, 63, 92, 94, 96, 67, 98, 100, 102, 71, 104
Offset: 0

Views

Author

N. J. A. Sloane, Mar 14 2003

Keywords

Comments

The same sequence, but without the initial 0, obeys the rule: "The concatenation of a(n) and a(a(n)) is even". Example: "2" and the 2nd term, concatenated, is 24; "4" and the 4th term, concatenated, is 46; "1" and the 1st term, concatenated, is 12; etc. - Eric Angelini, Feb 22 2017
If "even" in the definition is replaced by "prime", we get A121053. - N. J. A. Sloane, Dec 14 2024

Crossrefs

Cf. A079000, A080029, A080030, A121053. Equals A079313 - 1.

Programs

  • Mathematica
    CoefficientList[Series[x*(-3*x^10 + 2*x^9 - x^8 + 8*x^6 + 3*x^4 + 6*x^3 + x^2 + 4*x + 2)/(x^8 - 2*x^4 + 1), {x, 0, 120}], x] (* Michael De Vlieger, Dec 17 2024 *)

Formula

For n >= 4 a(n) is given by: a(4m)=6m, a(4m+1)=4m+3, a(4m+2)=6m+2, a(4m+3)=6m+4.
From Chai Wah Wu, Apr 13 2024: (Start)
a(n) = 2*a(n-4) - a(n-8) for n > 11.
G.f.: x*(-3*x^10 + 2*x^9 - x^8 + 8*x^6 + 3*x^4 + 6*x^3 + x^2 + 4*x + 2)/(x^8 - 2*x^4 + 1). (End)

Extensions

More terms from Matthew Vandermast, Mar 21 2003

A079258 a(n) is taken to be the smallest positive integer greater than a(n-1) which is consistent with the condition "n is a member of the sequence if and only if a(n) is a square".

Original entry on oeis.org

0, 1, 3, 4, 9, 10, 11, 12, 13, 16, 25, 36, 49, 64, 65, 66, 81, 82, 83, 84, 85, 86, 87, 88, 89, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153
Offset: 0

Views

Author

Keywords

Comments

Also, a(n) is smallest nonnegative integer which is consistent with sequence being monotonically increasing and satisfying a(a(n)) = n^2.

Crossrefs

See A079000, A079253, A079254, A079256, A079257 for similar sequences.

Programs

  • Mathematica
    a = {1, 3}; Do[AppendTo[a, If[MemberQ[a, n], Position[a, n][[1, 1]]^2, a[[-1]] + 1]], {n, 3, 58}]; Prepend[a, 0] (* Ivan Neretin, Jul 09 2015 *)

A080029 a(n) is taken to be the smallest positive integer not already present which is consistent with the condition "n is a member of the sequence if and only if a(n) is a multiple of 3".

Original entry on oeis.org

0, 2, 3, 6, 5, 9, 12, 8, 15, 18, 11, 21, 24, 14, 27, 30, 17, 33, 36, 20, 39, 42, 23, 45, 48, 26, 51, 54, 29, 57, 60, 32, 63, 66, 35, 69, 72, 38, 75, 78, 41, 81, 84, 44, 87, 90, 47, 93, 96, 50, 99, 102, 53, 105, 108, 56, 111, 114, 59, 117, 120, 62, 123, 126, 65, 129, 132, 68
Offset: 0

Views

Author

N. J. A. Sloane, Mar 14 2003

Keywords

Crossrefs

Programs

  • Mathematica
    {#+1,2#-1,2#}[[Mod[ #,3,1]]]&/@Range[0,80]  (* Federico Provvedi, Jun 15 2021 *)
  • Python
    def a(n): m, r = divmod(n, 3); return 3*(2-r%2)*m + (r > 0)*(r+1)
    print([a(n) for n in range(68)]) # Michael S. Branicky, Jun 15 2021

Formula

a(3m)=6m, a(3m+1)=3m+2, a(3m+2)=6m+3.

Extensions

More terms from Matthew Vandermast, Mar 20 2003

A080639 a(1) = 1; for n>1, a(n) is taken to be the smallest integer greater than a(n-1) which is consistent with the condition "for n>1, n is a member of the sequence if and only if a(n) is even".

Original entry on oeis.org

1, 2, 5, 7, 8, 9, 10, 12, 14, 16, 17, 18, 19, 20, 21, 22, 24, 26, 28, 30, 32, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 96
Offset: 1

Views

Author

N. J. A. Sloane and Benoit Cloitre, Feb 28 2003

Keywords

References

  • Hsien-Kuei Hwang, S Janson, TH Tsai, Exact and asymptotic solutions of the recurrence f(n) = f(floor(n/2)) + f(ceiling(n/2)) + g(n): theory and applications, Preprint, 2016; http://140.109.74.92/hk/wp-content/files/2016/12/aat-hhrr-1.pdf. Also Exact and Asymptotic Solutions of a Divide-and-Conquer Recurrence Dividing at Half: Theory and Applications, ACM Transactions on Algorithms, 13:4 (2017), #47; DOI: 10.1145/3127585

Crossrefs

Formula

{a(a(n))} = {1, 2, 2i, i >= 4}.

Extensions

More terms from Matthew Vandermast, Feb 28 2003
Previous Showing 31-40 of 88 results. Next