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.

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