|
|
A068500
|
|
Sequence of Fibonacci numbers whose sum of decimal digits sets a new record.
|
|
2
|
|
|
1, 2, 3, 5, 8, 55, 89, 987, 28657, 196418, 1346269, 3524578, 5702887, 39088169, 267914296, 4807526976, 7778742049, 139583862445, 591286729879, 1304969544928657, 5527939700884757, 99194853094755497, 83621143489848422977, 218922995834555169026, 927372692193078999176
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
a(8)=987 and 9+8+7=24 and sum of digits of any Fibonacci numbers < 987 is also less than 24.
|
|
MATHEMATICA
|
terms = 30; Reap[For[n = k = 1; record = 0, n <= terms, k++, an = Fibonacci[k]; t = Total[IntegerDigits[an]]; If[t > record, record = t; Print["a(", n, ") = ", an]; Sow[an]; n++]]][[2, 1]] (* Jean-François Alcover, Apr 02 2017 *)
|
|
PROG
|
(Haskell)
a068500 n = a068500_list !! (n-1)
a068500_list = h 0 a004090_list a000045_list where
h r (q:qs) (f:fs) = if q <= r then h r qs fs else f : h q qs fs
(PARI) lista(nn) = {s = 0; for (n=1, nn, if ((ns = sumdigits(f=fibonacci(n))) > s, print1(f, ", "); s = ns); ); } \\ Michel Marcus, Apr 02 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nice,nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|