|
| |
|
|
A102111
|
|
Iccanobirt numbers (1 of 15): a(n) = a(n-1) + a(n-2) + R(a(n-3)), where R is the digit reversal function A004086.
|
|
19
|
|
|
|
0, 0, 1, 1, 2, 4, 7, 13, 24, 44, 99, 185, 328, 612, 1521, 2956, 4693, 8900, 20185, 33049, 53332, 144483, 291848, 459666, 1135955, 2443813, 4246722, 12285846, 19716010, 34278280, 118852511, 154192582, 281332336, 550783729, 1117407516, 2301424427
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,5
|
|
|
COMMENTS
|
Digit reversal variation of Tribonacci numbers A000073.
Inspired by Iccanobif numbers: A001129, A014258-A014260.
|
|
|
LINKS
|
Table of n, a(n) for n=0..35.
|
|
|
FORMULA
|
A004086(a(n)) = A102119(n).
|
|
|
MAPLE
|
read("transforms") ;
A102111 := proc(n)
option remember;
if n <= 2 then
return op(n+1, [0, 0, 1]) ;
else
return procname(n-1)+procname(n-2)+digrev(procname(n-3)) ;
end if;
end proc:
seq(A102111(n), n=0..20) ; # R. J. Mathar, Nov 17 2012
|
|
|
MATHEMATICA
|
R[n_]:=FromDigits[Reverse[IntegerDigits[n]]]; Clear[a]; a[0]=0; a[1]=0; a[2]=1; a [n_]:=a[n]=a[n-1]+a[n-2]+R[a[n-3]]; Table[a[n], {n, 0, 40}]
|
|
|
CROSSREFS
|
Cf. A102112-A102125.
Sequence in context: A000073 A160254 A005318 * A224704 A059633 A088353
Adjacent sequences: A102108 A102109 A102110 * A102112 A102113 A102114
|
|
|
KEYWORD
|
nonn,base,easy
|
|
|
AUTHOR
|
Jonathan Vos Post and Ray Chandler, Dec 30 2004
|
|
|
STATUS
|
approved
|
| |
|
|
