login
A023483
a(n) = b(n) + d(n), where b(n) = (n-th Fibonacci number > 1) and d(n) = (n-th non-Fibonacci number).
1
6, 9, 12, 17, 23, 32, 46, 69, 104, 160, 250, 395, 629, 1007, 1619, 2607, 4205, 6790, 10972, 17738, 28685, 46397, 75055, 121424, 196450, 317844, 514264, 832076, 1346306, 2178347, 3524617, 5702927, 9227506, 14930394, 24157860, 39088213
OFFSET
1,1
FORMULA
a(n) = A000045(n+2)+A001690(n). - R. J. Mathar, Feb 01 2019
MATHEMATICA
nn = 36; b = Table[Fibonacci[n + 2], {n, nn}]; d = Take[Complement[Range[2, 2*nn], b], nn]; b + d (* T. D. Noe, Mar 09 2011 *)
fibs=Select[Fibonacci[Range[60]], #>1&]; nonfibs=Take[Complement[Range[4, 75], fibs], Length[fibs]]; Total/@Thread[{fibs, nonfibs}] (* Harvey P. Dale, Mar 10 2011 *)
CROSSREFS
Sequence in context: A084806 A020938 A136360 * A023042 A128245 A117714
KEYWORD
nonn
STATUS
approved