A272666 a(n) = A011371(n) + 5*n.

0, 5, 11, 16, 23, 28, 34, 39, 47, 52, 58, 63, 70, 75, 81, 86, 95, 100, 106, 111, 118, 123, 129, 134, 142, 147, 153, 158, 165, 170, 176, 181, 191, 196, 202, 207, 214, 219, 225, 230, 238, 243, 249, 254, 261, 266, 272, 277, 286, 291, 297, 302, 309, 314, 320, 325, 333, 338, 344, 349, 356, 361, 367, 372

Offset

0,2

Links

Table of n, a(n) for n=0..63.

Keith Johnson and Kira Scheibelhut, Rational Polynomials That Take Integer Values at the Fibonacci Numbers, American Mathematical Monthly 123.4 (2016): 338-346. See p. 340.

Formula

a(n) = A008588(n) - A000120(n). - Michel Marcus, Sep 28 2017

Mathematica

a[n_] := 6*n - DigitCount[n, 2, 1]; Array[a, 100, 0] (* Amiram Eldar, Jul 20 2023 *)

Prog

(PARI) a(n) = 6*n - hammingweight(n); \\ Michel Marcus, Sep 28 2017

Crossrefs

Cf. A000120, A004134, A005187, A008588, A011371, A120738.

Sequence in context: A314171 A314172 A314173 * A314174 A314175 A190323

Adjacent sequences: A272663 A272664 A272665 * A272667 A272668 A272669

Keyword

nonn,base

Author

N. J. A. Sloane, May 18 2016

Status

approved