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
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