A102114 Iccanobirt numbers (4 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, 13, 42, 44, 99, 185, 724, 711, 1026, 7636, 8104, 12680, 24361, 37126, 99214, 102786, 823541, 347328, 1750070, 1871440, 2539179, 13340862, 31214950, 21821254, 89768624, 95723002, 131622637, 921717757, 985062768

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.

Crossrefs

Cf. A102111-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}]
nxt[{a_,b_,c_}]:={b,c,FromDigits[Reverse[IntegerDigits[c]]]+b+a}; Transpose[NestList[nxt,{0,0,1},40]][[1]]  (* Harvey P. Dale, May 30 2012 *)

Formula

A004086(a(n)) = A102122(n).