A391432 Complement of the union of A005652(k), k>=2 and A035508(k), k>=1.

1, 4, 5, 10, 12, 13, 15, 18, 23, 25, 26, 28, 31, 33, 34, 36, 38, 39, 41, 44, 46, 47, 49, 52, 57, 59, 60, 62, 65, 67, 68, 70, 72, 73, 75, 78, 80, 81, 83, 86, 88, 89, 91, 93, 94, 96, 99, 101, 102, 104, 107, 109, 112, 114, 115, 117, 120, 122, 123, 125, 127, 128

Offset

1,2

Comments

Every positive integer is in exactly one of the sequences (A005652(n), n>=2), (A035508(n), n>=1), and this sequence. The difference sequence of each of the three sequences consists entirely of Fibonacci numbers.

Links

Table of n, a(n) for n=1..62.

Mathematica

t1 = Table[Fibonacci[2 n + 2] - 1, {n, 1, 200}];
t2 = Table[If[FractionalPart[n*GoldenRatio] < 1/2, 0, 1], {n, 1, 200}]; (* A078588 *)
u = Flatten[Position[t2, 1]] (* A005662 *)
Complement[Range[200], Rest[Union[t1, u]]]

Crossrefs

Cf. A000027, A000045, A005656, A035598.

Sequence in context: A151735 A050039 A217571 * A376653 A058335 A222353

Adjacent sequences: A391429 A391430 A391431 * A391433 A391434 A391435

Keyword

nonn

Author

Clark Kimberling, Feb 07 2026

Status

approved