cp's OEIS Frontend

A003247 Complement of A003248.

%I A003247 M0539 #30 Jan 05 2025 19:51:33
%S A003247 1,2,3,4,6,7,8,9,10,11,12,13,15,16,17,18,19,21,22,23,24,25,26,27,28,
%T A003247 30,31,32,33,34,36,37,38,40,41,42,43,44,46,47,48,49,50,51,52,53,55,56,
%U A003247 57,58,59,61,62,63,64,65,66,67,68,70,71,72,73,74,75,76,77
%N A003247 Complement of A003248.
%C A003247 Numbers k such that A003234(k) equals the image of some x by A000201(A001950()) (see 1.20 p. 339 of Carlitz link). - _Michel Marcus_, Feb 02 2014
%C A003247 This is the function named t in [Carlitz]. - _Eric M. Schmidt_, Aug 14 2014
%D A003247 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H A003247 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.
%H A003247 A. M. Odlyzko, <a href="/A003246/a003246.pdf">Letters to N. J. A. Sloane Feb 1974</a>.
%o A003247 (PARI) A000201(n) = floor(n*(sqrt(5)+1)/2);
%o A003247 A001950(n) = floor(n*(sqrt(5)+3)/2);
%o A003247 A003231(n) = floor(n*(sqrt(5)+5)/2);
%o A003247 is003234(n) = A003231(A001950(n)) == A001950(A003231(n)) - 1;
%o A003247 lista(nn) = {vab = vector(nn, i, A000201(A001950(i))); v003234 = select(n->is003234(n), vector(nn, i, i)); for (n=1, #v003234, if (vecsearch(vab, v003234[n]), print1(n, ", ")););} \\ _Michel Marcus_, Feb 02 2014
%K A003247 nonn
%O A003247 1,2
%A A003247 _N. J. A. Sloane_
%E A003247 More terms from _Michel Marcus_, Feb 02 2014
%E A003247 New definition from _Eric M. Schmidt_, Aug 14 2014