|
%I #5 Jan 19 2019 20:25:14
%S 2,1,4,3,6,5,8,7,1,9,21,11,41,31,61,51,81,71,2,91,22,12,42,32,62,52,
%T 82,72,3,92,23,13,43,33,63,53,83,73,4,93,24,14,44,34,64,54,84,74,5,94,
%U 25,15,45,35,65,55,85,75,6,95,26,16,46,36,66,56,86,76,7,96,27,17,47,37,67
%N Natural numbers, swapped in pairs, with decimal digits reversed.
%p 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
%K nonn,base
%O 1,1
%A _Giovanni Teofilatto_, Nov 06 2009
%E All terms from a(18) on corrected by _R. J. Mathar_, Jan 30 2010
|
