%I #10 May 26 2021 02:38:46
%S 0,1,9,8,7,6,5,4,3,2,1,11,89,79,69,59,49,39,29,19,9,109,99,78,68,58,
%T 48,38,28,18,8,108,98,88,67,57,47,37,27,17,7,107,97,87,77,56,46,36,26,
%U 16,6,106,96,86,76,66,45,35,25,15,5,105,95,85,75,65,55,34,24,14,4,104,94,84
%N a(n) = digit reversal of 9*n, divided by 9.
%C If n is a multiple of 10, then a(n) = a(n/10); if n is not a multiple of 10, then a(a(n)) = n.
%e a(2) = reverse(9*2)/9 = reverse(18)/9 = 81/9 = 9.
%o (PARI) {for(n=0,73,k=9*n; rev=0; while(k>0,d=divrem(k,10); k=d[1]; rev=10*rev+d[2]); print1(rev/9,","))}
%o (PARI) apply( {A083824(n)=fromdigits(Vecrev(digits(9*n)))/9}, [0..99]) \\ _M. F. Hasler_, May 21 2021
%Y Cf. A083822 (analog for 3), A083823, A083825.
%K base,easy,nonn
%O 0,3
%A _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 08 2003
%E Edited, corrected and extended by _Klaus Brockhaus_, May 11 2003
%E Minor edits and extension to offset 0 by _M. F. Hasler_, May 21 2021