OFFSET
1,1
MAPLE
read("transforms") ; A014681 := proc(n) option remember; if n <= 3 then op(n+1, [0, 2, 1, 4]) ; else procname(n-1)+procname(n-2)-procname(n-3) ; end if; end proc: A167542 := proc(n) digrev(A014681(n)) ; end proc: seq(A167542(n), n=1..120) ; # R. J. Mathar, Jan 30 2010
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Teofilatto, Nov 06 2009
EXTENSIONS
All terms from a(18) on corrected by R. J. Mathar, Jan 30 2010
STATUS
approved