A102118 Iccanobirt numbers (8 of 15): a(n) = R(a(n-1) + a(n-2) + a(n-3)), where R is the digit reversal function A004086.

0, 0, 1, 1, 2, 4, 7, 31, 24, 26, 18, 86, 31, 531, 846, 8041, 8149, 63071, 16297, 71578, 649051, 629637, 6620531, 9129987, 55108361, 97885807, 551421261, 924514407, 5741283751, 9149127127, 58252941851, 92725334137, 511304721061

Offset

0,5

Comments

Digit reversal variation of tribonacci numbers A000073.

Inspired by Iccanobif numbers: A001129, A014258-A014260.

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Mathematica

R[n_]:=FromDigits[Reverse[IntegerDigits[n]]]; Clear[a]; a[0]=0; a[1]=0; a[2]=1; a [n_]:=a[n]=R[a[n-1]+a[n-2]+a[n-3]]; Table[a[n], {n, 0, 40}]
Transpose[NestList[{#[[2]], #[[3]], FromDigits[Reverse[IntegerDigits[Total[ #]]]]}&, {0, 0, 1}, 40]][[1]] (* Harvey P. Dale, Dec 04 2012 *)

Crossrefs

Cf. A102111, A102112, A102113, A102114, A102115, A102116, A102117, A102119, A102120, A102121, A102122, A102123, A102124, A102125.

Sequence in context: A065846 A242020 A047904 * A102119 A102121 A102120

Adjacent sequences: A102115 A102116 A102117 * A102119 A102120 A102121

Keyword

nonn,base,easy

Author

Jonathan Vos Post and Ray Chandler, Dec 30 2004

Extensions

Incorrect formula removed by Georg Fischer, Dec 18 2020

Status

approved