|
|
|
|
#4 by Harvey P. Dale at Thu Jan 22 08:30:43 EST 2015
|
|
|
|
#3 by Harvey P. Dale at Thu Jan 22 08:30:37 EST 2015
|
| MATHEMATICA
|
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 *)
|
| STATUS
|
approved
editing
|
|
|
|
#2 by Charles R Greathouse IV at Wed Oct 02 15:47:16 EDT 2013
|
| AUTHOR
|
_Shyam Sunder Gupta (guptass(AT)rediffmail.com), _, Jul 14 2002
|
|
|
Discussion
|
Wed Oct 02
| 15:47
| OEIS Server: https://oeis.org/edit/global/1962
|
|
|
|
#1 by N. J. A. Sloane at Fri May 16 03:00:00 EDT 2003
|
| NAME
|
Smallest Fibonacci number containing exactly n 6's.
|
| DATA
|
610, 6765, 365435296162, 160500643816367088, 6356306993006846248183, 757791618667731139247631372100066, 16641027750620563662096, 40934782466626840596168752972961528246147
|
| OFFSET
|
1,1
|
| EXAMPLE
|
a(2)=6765 so 6765 is the smallest Fibonacci number containing exactly two 6's.
|
| KEYWORD
|
base,nonn
|
| AUTHOR
|
Shyam Sunder Gupta (guptass(AT)rediffmail.com), Jul 14 2002
|
| STATUS
|
approved
|
|
|
|