A080704 a(1)=2; for n>1, if n is in the sequence then a(n) is the smallest even integer > a(n-1), otherwise a(n) = a(n-1) + 3.

2, 4, 7, 8, 11, 14, 16, 18, 21, 24, 26, 29, 32, 34, 37, 38, 41, 42, 45, 48, 50, 53, 56, 58, 61, 62, 65, 68, 70, 73, 76, 78, 81, 82, 85, 88, 90, 92, 95, 98, 100, 102, 105, 108, 110, 113, 116, 118, 121, 122, 125, 128, 130, 133, 136, 138, 141, 142, 145, 148

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Amiram Eldar, Plot of a(n)/n for n = 10000..100000

Formula

It seems that a(n)/n -> 2.4799.... = 62/25 ?

Mathematica

a[1] = 2; a[n_] := a[n] = Module[{s = Array[a, n-1]}, a[n-1] + If[MemberQ[s, n], If[OddQ[a[n-1]], 1, 2], 3]]; Array[a, 100] (* Amiram Eldar, May 14 2022 *)

Prog

(PARI) for(n=2, 400, an[n]=if(setsearch(Set(vector(n-1, i, a(i))), n), if(a(n-1)%2, a(n-1)+1, a(n-1)+2), a(n-1)+3))

Crossrefs

Cf. A080705, A064437, A080717.

Sequence in context: A030355 A288307 A286060 * A316094 A290259 A244779

Adjacent sequences: A080701 A080702 A080703 * A080705 A080706 A080707

Keyword

nonn,easy

Author

Benoit Cloitre, Mar 01 2003

Status

approved