cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A023490 n-th non-Lucas number plus Fibonacci(n + 1).

This page as a plain text file.
%I A023490 #15 Jan 30 2019 02:54:29
%S A023490 3,7,9,13,17,23,33,47,69,104,160,250,396,630,1008,1619,2607,4205,6790,
%T A023490 10972,17738,28685,46398,75056,121425,196451,317845,514264,832076,
%U A023490 1346306,2178347,3524617,5702927,9227506,14930394,24157860,39088213,63246031,102334201
%N A023490 n-th non-Lucas number plus Fibonacci(n + 1).
%H A023490 Clark Kimberling, <a href="/A023490/b023490.txt">Table of n, a(n) for n = 0..1000</a>
%F A023490 a(n) = A000045(n + 2) + A090946(n + 2).
%t A023490 tarLen = 35; fiboList = Fibonacci[Range[2, tarLen + 1]]; threshold = fiboList[[-1]]; fiboList + Take[Complement[Range[threshold], LucasL[Range[tarLen]]], tarLen] (* _Alonso del Arte_, Jan 28 2019 *)
%t A023490 Table[Fibonacci[n+2] + Floor[1/2 - LambertW[-1, -Log[GoldenRatio]/GoldenRatio^(n + 1/2)] / Log[GoldenRatio]], {n, 0, 50}] (* _Vaclav Kotesovec_, Jan 30 2019 *)
%Y A023490 Cf. A000045, A090946.
%Y A023490 Cf. A023491, A023493, A023494.
%K A023490 nonn
%O A023490 0,1
%A A023490 _Clark Kimberling_
%E A023490 Corrected by _Clark Kimberling_, Jan 29 2019