cp's OEIS Frontend

A242094 Complement of A003249.

%I A242094 #18 Jan 05 2025 19:51:40
%S A242094 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,
%T A242094 28,30,31,32,33,34,35,36,37,38,39,40,41,43,44,45,46,47,48,49,51,52,53,
%U A242094 54,56,57,58,59,60,61,62,64,65,66,67,68,69,70,71,72,73,74
%N A242094 Complement of A003249.
%C A242094 This is the function named u in [Carlitz].
%C A242094 First differs from A187947 at a(46)=51.
%H A242094 L. Carlitz, R. Scoville and T. Vaughan, <a href="https://web.archive.org/web/2024*/https://www.fq.math.ca/Scanned/11-4/carlitz.pdf">Some arithmetic functions related to Fibonacci numbers</a>, Fib. Quart., 11 (1973), 337-386.
%t A242094 nmax = 80;
%t A242094 A001950[n_] := Floor[n*GoldenRatio^2];
%t A242094 A003231[n_] := 2*n + Floor[n*GoldenRatio];
%t A242094 A003234 = Select[Range[4*nmax],
%t A242094    A003231[A001950[#]] == A001950[A003231[#]] - 1 &];
%t A242094 A003249[n_] := A001950[A003234[[n]]] + 1;
%t A242094 Complement[Range[A003249[nmax]], Array[A003249, nmax]] (* _Jean-François Alcover_, Jul 21 2024 *)
%o A242094 (Haskell)
%o A242094 a242094 n = a242094_list !! (n-1)
%o A242094 a242094_list = c [1..] a003249_list where
%o A242094    c (v:vs) ws'@(w:ws) = if v == w then c vs ws else v : c vs ws'
%o A242094 -- _Reinhard Zumkeller_, Oct 03 2014
%Y A242094 Cf. A003249.
%K A242094 nonn
%O A242094 1,2
%A A242094 _Eric M. Schmidt_, Aug 14 2014