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,2

Comments

This is the function named u in [Carlitz].

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

Links

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

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

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 *)

Prog

(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

Crossrefs

Cf. A003249.

Sequence in context: A270428 A183220 A187947 * A349144 A171524 A052421

Adjacent sequences: A242091 A242092 A242093 * A242095 A242096 A242097

Keyword

nonn

Author

Eric M. Schmidt, Aug 14 2014

Status

approved