A353988 Numbers k such that Fibonacci(k) is a binary Niven number (A049445).
1, 2, 3, 6, 8, 9, 10, 12, 18, 24, 30, 36, 48, 56, 60, 100, 120, 144, 150, 168, 240, 270, 288, 300, 324, 330, 336, 360, 444, 540, 594, 600, 624, 720, 750, 840, 864, 896, 900, 936, 1080, 1152, 1200, 1210, 1360, 1404, 1632, 1720, 1921, 2028, 2400, 2520, 2552, 2864
Offset: 1
Examples
1 is a term since A000045(1) = A011373(1) = 1 and 1 | 1. 10 is a term since A000045(10) = 55, A011373(1) = 5 and 5 | 55.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..3000
Programs
-
Mathematica
Select[Range[3000], Divisible[(f = Fibonacci[#]), DigitCount[f, 2, 1]] &]
-
PARI
isok(k) = my(f=fibonacci(k)); ! (f % hammingweight(f)); \\ Michel Marcus, May 13 2022
Comments