login
A272666
a(n) = A011371(n) + 5*n.
0
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
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
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, May 18 2016
STATUS
approved