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.
%I A272666 #14 Jul 20 2023 07:01:00 %S A272666 0,5,11,16,23,28,34,39,47,52,58,63,70,75,81,86,95,100,106,111,118,123, %T A272666 129,134,142,147,153,158,165,170,176,181,191,196,202,207,214,219,225, %U A272666 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 %N A272666 a(n) = A011371(n) + 5*n. %H A272666 Keith Johnson and Kira Scheibelhut, <a href="http://www.jstor.org/stable/10.4169/amer.math.monthly.123.4.338">Rational Polynomials That Take Integer Values at the Fibonacci Numbers</a>, American Mathematical Monthly 123.4 (2016): 338-346. See p. 340. %F A272666 a(n) = A008588(n) - A000120(n). - _Michel Marcus_, Sep 28 2017 %t A272666 a[n_] := 6*n - DigitCount[n, 2, 1]; Array[a, 100, 0] (* _Amiram Eldar_, Jul 20 2023 *) %o A272666 (PARI) a(n) = 6*n - hammingweight(n); \\ _Michel Marcus_, Sep 28 2017 %Y A272666 Cf. A000120, A004134, A005187, A008588, A011371, A120738. %K A272666 nonn,base %O A272666 0,2 %A A272666 _N. J. A. Sloane_, May 18 2016