A367556 Comma transform of the Fibonacci numbers.

1, 11, 12, 23, 35, 58, 81, 32, 13, 45, 58, 91, 42, 33, 76, 9, 71, 72, 44, 16, 51, 61, 12, 74, 87, 51, 31, 83, 15, 98, 1, 92, 93, 85, 79, 51, 22, 73, 96, 61, 51, 12, 64, 77, 31, 1, 32, 34, 67, 91, 52, 43, 95, 38, 21, 52, 73, 25, 99, 11, 2, 14, 16, 21, 31, 52, 84

Offset

0,2

Comments

See A367360 for further information.

Links

Alois P. Heinz, Table of n, a(n) for n = 0..10000

Formula

a(n) = 10 * A003893(n) + A008963(n+1).

Maple

F:= combinat[fibonacci]:
a:= n-> parse(cat(""||(F(n))[-1], ""||(F(n+1))[1])):
seq(a(n), n=0..92);

Mathematica

With[{nmax=100}, Map[10Mod[#[[1]], 10]+IntegerDigits[#[[2]]][[1]]&, Partition[Fibonacci[Range[0, nmax+1]], 2, 1]]] (* Paolo Xausa, Nov 24 2023 *)

Prog

(Python)
from sympy import fibonacci
from itertools import islice, pairwise, count
def S(): yield from (fibonacci(i) for i in count(0))
def C(g): # generator of comma transform of sequence passed as a generator
    yield from (10*(t%10) + int(str(u)[0]) for t, u in pairwise(g))
def agen(): return C(S())
print(list(islice(agen(), 67))) # Michael S. Branicky, Jan 05 2024

Crossrefs

Cf. A000045, A003893, A008963, A138844, A367360.

Sequence in context: A331194 A105945 A139114 * A022101 A041246 A042633

Adjacent sequences: A367553 A367554 A367555 * A367557 A367558 A367559

Keyword

nonn,base

Author

Alois P. Heinz, Nov 22 2023

Status

approved