OFFSET
1,2
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.
MATHEMATICA
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
KEYWORD
nonn
AUTHOR
Eric M. Schmidt, Aug 14 2014
STATUS
approved