login
Complement of A003248.
(Formerly M0539)
1

%I M0539 #28 Oct 21 2023 17:21:35

%S 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 30,31,32,33,34,36,37,38,40,41,42,43,44,46,47,48,49,50,51,52,53,55,56,

%U 57,58,59,61,62,63,64,65,66,67,68,70,71,72,73,74,75,76,77

%N Complement of A003248.

%C 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 This is the function named t in [Carlitz]. - _Eric M. Schmidt_, Aug 14 2014

%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

%H L. Carlitz, R. Scoville and T. Vaughan, <a href="http://www.fq.math.ca/Scanned/11-4/carlitz.pdf">Some arithmetic functions related to Fibonacci numbers</a>, Fib. Quart., 11 (1973), 337-386.

%H A. M. Odlyzko, <a href="/A003246/a003246.pdf">Letters to N. J. A. Sloane Feb 1974</a>.

%o (PARI) A000201(n) = floor(n*(sqrt(5)+1)/2);

%o A001950(n) = floor(n*(sqrt(5)+3)/2);

%o A003231(n) = floor(n*(sqrt(5)+5)/2);

%o is003234(n) = A003231(A001950(n)) == A001950(A003231(n)) - 1;

%o 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 nonn

%O 1,2

%A _N. J. A. Sloane_

%E More terms from _Michel Marcus_, Feb 02 2014

%E New definition from _Eric M. Schmidt_, Aug 14 2014