A387786 - OEIS

A387786

a(0)=2, a(1)=1, and thereafter a(n) = R(a(n-1) + a(n-2)) where R(x) = A004086(x) is the decimal digit reversal of x.

2, 1, 3, 4, 7, 11, 81, 29, 11, 4, 51, 55, 601, 656, 7521, 7718, 93251, 969001, 2522601, 2061943, 4454854, 7976156, 1013421, 7759898, 9133778, 67639861, 93637767, 826772161, 829904029, 916766561, 950766471, 2303357681, 2514214523, 4022757184, 7071796356, 4535549011, 76354370611

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,1

LINKS

Paolo Xausa, Table of n, a(n) for n = 0..1000

MAPLE

R:= n-> (s-> parse(cat(s[-i]$i=1..length(s))))(""||n):

a:= proc(n) option remember; `if`(n<2, 2-n, R(a(n-1)+a(n-2)) ) end:

seq(a(n), n=0..36); # Alois P. Heinz, Feb 08 2026

MATHEMATICA

Module[{a, n}, RecurrenceTable[{a[n] == IntegerReverse[a[n-1] + a[n-2]], a[0] == 2, a[1] == 1}, a, {n, 0, 40}]] (* Paolo Xausa, Feb 17 2026 *)

PROG

(PARI) lista(nn) = my(x=2, y=1); print1(x, ", "); print1(y, ", "); for (n=1, nn, my(z=fromdigits(Vecrev(digits(x+y)))); print1(z, ", "); x = y; y = z; ); \\ Michel Marcus, Feb 08 2026

CROSSREFS

Cf. A000032, A004086, A014258, A036447.

Sequence in context: A061084 A000032 A329723 * A267551 A055391 A177940

Adjacent sequences: A387783 A387784 A387785 * A387787 A387788 A387789

KEYWORD

nonn,base

AUTHOR

Aminos Abijad, Feb 06 2026

STATUS

approved