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

Author

Jonathan Vos Post and Ray Chandler, Dec 30 2004

Keywords

• nonn
• base
• easy

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

Crossrefs

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

Programs

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 *)

Extensions

Incorrect formula removed by Georg Fischer, Dec 18 2020