OFFSET
0,4
MAPLE
R:= n-> (s-> parse(cat(s[-i]$i=1..length(s))))(""||n):
a:= proc(n) option remember; `if`(n<3, 1,
a(n-1) + R(a(n-2)) + R(a(n-3)))
end:
seq(a(n), n=0..33); # Alois P. Heinz, Jun 17 2021
CROSSREFS
KEYWORD
easy,base,nonn
AUTHOR
Felice Russo, Sep 11 2002
EXTENSIONS
Corrected and extended by David Garber, Oct 23 2002
Offset corrected by and more terms from Alois P. Heinz, Jun 17 2021
STATUS
approved