OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..225
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 *)
DeleteDuplicates[Table[{f, Total[IntegerDigits[f]]}, {f, Fibonacci[Range[150]]}], GreaterEqual[ #1[[2]], #2[[2]]]&][[;; , 1]] (* Harvey P. Dale, Jul 22 2024 *)
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
-- Reinhard Zumkeller, Oct 26 2015
(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
Shyam Sunder Gupta, Mar 25 2002
STATUS
approved