login
Smallest Fibonacci number containing exactly n 6's.
0

%I #4 Jan 22 2015 08:30:43

%S 610,6765,365435296162,160500643816367088,6356306993006846248183,

%T 757791618667731139247631372100066,16641027750620563662096,

%U 40934782466626840596168752972961528246147

%N Smallest Fibonacci number containing exactly n 6's.

%e a(2)=6765 so 6765 is the smallest Fibonacci number containing exactly two 6's.

%t With[{fibs=Fibonacci[Range[1000]]},Table[SelectFirst[fibs, DigitCount[ #,10,6] == n&],{n,8}]] (* The program uses the SelectFirst function from Mathematica version 10 *) (* _Harvey P. Dale_, Jan 22 2015 *)

%K base,nonn

%O 1,1

%A _Shyam Sunder Gupta_, Jul 14 2002