A242094 Complement of A003249.

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

Offset: 1

Author

Eric M. Schmidt, Aug 14 2014

Keywords

• nonn

Comments

This is the function named u in [Carlitz].

First differs from A187947 at a(46)=51.

Links

• L. Carlitz, R. Scoville and T. Vaughan, Some arithmetic functions related to Fibonacci numbers, Fib. Quart., 11 (1973), 337-386.

Crossrefs

Cf. A003249.

Programs

Haskell

a242094 n = a242094_list !! (n-1)
a242094_list = c [1..] a003249_list where
   c (v:vs) ws'@(w:ws) = if v == w then c vs ws else v : c vs ws'
-- Reinhard Zumkeller, Oct 03 2014

Mathematica

nmax = 80;
A001950[n_] := Floor[n*GoldenRatio^2];
A003231[n_] := 2*n + Floor[n*GoldenRatio];
A003234 = Select[Range[4*nmax],
   A003231[A001950[#]] == A001950[A003231[#]] - 1 &];
A003249[n_] := A001950[A003234[[n]]] + 1;
Complement[Range[A003249[nmax]], Array[A003249, nmax]] (* Jean-François Alcover, Jul 21 2024 *)