A214365 Digit-wise Fibonacci: Start with 0,1; then the next term is always the sum of the earliest two consecutive digits not yet summed so far.
0, 1, 1, 2, 3, 5, 8, 13, 9, 4, 12, 13, 5, 3, 3, 4, 8, 8, 6, 7, 12, 16, 14, 13, 8, 3, 3, 7, 7, 5, 5, 4, 11, 11, 6, 10, 14, 12, 10, 9, 5, 2, 2, 2, 7, 7, 1, 1, 5, 5, 3, 3, 1, 9, 14, 7, 4, 4, 9, 14, 8, 2, 6, 10, 8, 6, 4, 10, 10, 5, 11, 11, 8, 13, 10, 5, 12, 10, 8, 7, 1, 8, 14, 10, 5
Offset: 0
Examples
The sequence starts in the same way as the Fibonacci sequence A000045. But after 5+8=13 follows the digit-wise continuation, viz: 8+1=9, 1+3=4, 3+9=12, ... (Due to the presence of 2-digit terms, the summed digits lag more and more behind the correspondingly computed term.) The first run of 3 consecutive 9's occurs at a(3862)=a(3863)=a(3864)=9, which then yield a(4975)=a(4976)=18, a(4977)=14 and the first run of four 9's at 6392 <= n <= 6395. [_M. F. Hasler_, Feb 17 2013]
Links
- Lars Blomberg, Table of n, a(n) for n = 0..10000
- Eric Angelini (and replies from others), Fibonaccit, posts to the SeqFan list, Feb 15 2013.
- Hans Havermann, Chart of the first differences of the indices of 18 in A214365
Crossrefs
Cf. A093086.
Programs
-
Mathematica
Module[{rd = {0, 1}, a}, Join[rd, Table[rd = Join[Rest[rd], IntegerDigits[a = Total[Take[rd, 2]]]]; a, 100]]] (* Paolo Xausa, Aug 22 2025 *)
-
PARI
A214365(n,show=0,d=[0,1])={show & print1(d[1]","d[2]); for(i=2,n, n=d[1]+d[2]; show & print1(","n); d=concat(vecextract(d,"^1"),digits(n))); n}
-
Python
def aupto(n): alst, remaining = [0, 1], [0, 1] for i in range(2, n+1): an = remaining.pop(0) + remaining[0] alst.append(an) remaining.extend(list(map(int, str(an)))) return alst # use alst[n] for a(n) print(aupto(89)) # Michael S. Branicky, Dec 14 2020
Comments