A102123 Iccanobirt numbers (13 of 15): a(n) = R(R(a(n-1)) + a(n-2) + R(a(n-3))), where R is the digit reversal function A004086.
0, 0, 1, 1, 2, 4, 7, 31, 42, 26, 711, 761, 49, 279, 8811, 1651, 44311, 38141, 55006, 45901, 34108, 990681, 161132, 5891031, 6129461, 8041777, 45820251, 74839842, 60558487, 202825861, 635089352, 309192535, 7549098331, 8252802091
Offset: 0
Programs
-
Mathematica
R[n_]:=FromDigits[Reverse[IntegerDigits[n]]];Clear[a];a[0]=0;a[1]=0;a[2]=1;a [n_]:=a[n]=R[R[a[n-1]]+a[n-2]+R[a[n-3]]];Table[a[n], {n, 0, 40}]
Comments