A079357 -id:A079357 - cp's OEIS frontend

A080781 Duplicate of A079357.

1, 5, 9, 13, 12, 16, 20, 24, 23, 27, 31, 30, 29, 33, 37, 36, 40, 44, 48, 47, 51, 55, 54

Offset: 1

dead

A080782 a(1)=1, a(n)=a(n-1)-1 if n is already in the sequence, a(n)=a(n-1)+2 otherwise.

1, 3, 2, 4, 6, 5, 7, 9, 8, 10, 12, 11, 13, 15, 14, 16, 18, 17, 19, 21, 20, 22, 24, 23, 25, 27, 26, 28, 30, 29, 31, 33, 32, 34, 36, 35, 37, 39, 38, 40, 42, 41, 43, 45, 44, 46, 48, 47, 49, 51, 50, 52, 54, 53, 55, 57, 56, 58, 60, 59, 61, 63, 62, 64, 66, 65, 67, 69, 68

Offset: 1

Benoit Cloitre, Mar 07 2003

Permutation of the integers: exchange trisections starting with 2 and 3.

a(a(n)) = n. - Reinhard Zumkeller, Oct 29 2004

Guenther Schrack, Table of n, a(n) for n = 1..10000
Robbert Fokkink and Gandhar Joshi, On Cloitre's hiccup sequences, arXiv:2507.16956 [math.CO], 2025. See p. 2.
Index entries for linear recurrences with constant coefficients, signature (1,0,1,-1).
Index entries for sequences that are permutations of the natural numbers.

Cf. A064429, A079357, A079354, A080783, A064437.

Cf. A004442, A080412.

Array[#+Mod[#+1,3]&,70,0] (* or *) LinearRecurrence[{1,0,1,-1},{1,3,2,4},70] (* Harvey P. Dale, Mar 29 2013 *)
{#,#+1,#-1}[[Mod[#,3,1]]]&/@Range[99] (* Federico Provvedi, May 15 2021 *)

a(n) = A064429(n-1) + 1.
a(n) - n is periodic with period 3.
G.f.: x*(1+2*x-x^2+x^3)/(1-x-x^3+x^4). - Jaume Oliver Lafont, Mar 24 2009
a(0)=1, a(1)=3, a(2)=2, a(3)=4, a(n)=a(n-1)+0*a(n-2)+a(n-3)-a(n-4). - Harvey P. Dale, Mar 29 2013
a(n) = n + (2/sqrt(3))*sin(2*(n+2)*Pi/3). - Wesley Ivan Hurt, Sep 26 2017
From Guenther Schrack, Oct 23 2019: (Start)
a(n) = a(n-3) + 3 with a(1) = 1, a(2) = 3, a(3) = 2 for n > 3.
a(n) = n - (w^(2*n)*(2 + w) + w^n*(1 - w))/3 where w = (-1 + sqrt(-3))/2. (End)
Sum_{n>=1} (-1)^(n+1)/a(n) = 2*Pi/(3*sqrt(3)) - log(2)/3. - Amiram Eldar, Jan 31 2023
From Charles L. Hohn, Sep 03 2024: (Start)
a(n) = n-1+n%3.
a(n) = A375336(n-2, 1) for n >= 6. (End)

A080783 a(1)=1, a(n)=a(n-1)-1 if n is already in the sequence, a(n)=a(n-1)+5 otherwise.

Original entry on oeis.org

1, 6, 11, 16, 21, 20, 25, 30, 35, 40, 39, 44, 49, 54, 59, 58, 63, 68, 73, 72, 71, 76, 81, 86, 85, 90, 95, 100, 105, 104, 109, 114, 119, 124, 123, 128, 133, 138, 137, 136, 141, 146, 151, 150, 155, 160, 165, 170, 169, 174, 179, 184, 189, 188, 193, 198

Offset: 1

Benoit Cloitre, Mar 07 2003

nonn

Cf. A079357, A079354, A080782, A064437.

lst={1};i=2;Do[If[MemberQ[lst,i],AppendTo[lst,Last[lst]-1], AppendTo[ lst,Last[lst]+5]];i++,{60}];lst (* Harvey P. Dale, Aug 20 2011 *)

Conjectured to be asymptotic to 3n as n -> infinity.

A079355 a(1) = 1; a(n) = a(n-1)-3 if n is already in the sequence, a(n) = a(n-1)+4 otherwise.

Original entry on oeis.org

1, 5, 9, 13, 10, 14, 18, 22, 19, 16, 20, 24, 21, 18, 22, 19, 23, 20, 17, 14, 11, 8, 5, 2, 6, 10, 14, 18, 22, 26, 30, 34, 38, 35, 32, 36, 40, 37, 41, 38, 35, 39, 43, 47, 51, 55, 52, 56, 60, 64, 61, 58, 62, 66, 63, 60, 64, 61, 65, 62, 59, 56, 53, 50, 47, 44, 48, 52, 56, 60, 64, 68

Offset: 1

Benoit Cloitre, Feb 14 2003

Cf. A079357.

a(n) = n+b(n)-22 where b(n) is the 42-periodic sequence (22, 25, 28, 31, 27, 30, 33, 36, 32, 28, 31, 34, 30, 26, 29, 25, 28, 24, 20, 16, 12, 8, 4, 0, 3, 6, 9, 12, 15, 18, 21, 24, 27, 23, 19, 22, 25, 21, 24, 20, 16, 19)

cp's OEIS Frontend

A080781 Duplicate of A079357.

Views

Author

Keywords

A080782 a(1)=1, a(n)=a(n-1)-1 if n is already in the sequence, a(n)=a(n-1)+2 otherwise.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A080783 a(1)=1, a(n)=a(n-1)-1 if n is already in the sequence, a(n)=a(n-1)+5 otherwise.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula

A079355 a(1) = 1; a(n) = a(n-1)-3 if n is already in the sequence, a(n) = a(n-1)+4 otherwise.

Views

Author

Keywords

Crossrefs

Formula