|
|
A353988
|
|
Numbers k such that Fibonacci(k) is a binary Niven number (A049445).
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
Select[Range[3000], Divisible[(f = Fibonacci[#]), DigitCount[f, 2, 1]] &]
|
|
PROG
|
(PARI) isok(k) = my(f=fibonacci(k)); ! (f % hammingweight(f)); \\ Michel Marcus, May 13 2022
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|