|
%I #139 Oct 29 2023 06:37:15
%S 0,1,2,3,4,5,6,7,8,9,1,11,21,31,41,51,61,71,81,91,2,12,22,32,42,52,62,
%T 72,82,92,3,13,23,33,43,53,63,73,83,93,4,14,24,34,44,54,64,74,84,94,5,
%U 15,25,35,45,55,65,75,85,95,6,16,26,36,46,56,66,76,86,96,7,17,27,37,47
%N Read n backwards (referred to as R(n) in many sequences).
%C Also called digit reversal of n.
%C Leading zeros (after the reversal has taken place) are omitted. - _N. J. A. Sloane_, Jan 23 2017
%C For n>0: a(a(n)) = n iff n mod 10 != 0. - _Reinhard Zumkeller_, Mar 10 2002
%H Indranil Ghosh, <a href="/A004086/b004086.txt">Table of n, a(n) for n = 0..50000</a> (first 1001 terms from Franklin T. Adams-Watters)
%H Dana G. Korssjoen, Biyao Li, Stefan Steinerberger, Raghavendra Tripathi, and Ruimin Zhang, <a href="https://arxiv.org/abs/2012.04625">Finding structure in sequences of real numbers via graph theory: a problem list</a>, arXiv:2012.04625 [math.CO], Dec 08 2020.
%H Michael Penn, <a href="https://www.youtube.com/watch?v=_DkEcw4US9s">A digit moving number puzzle.</a>, YouTube video, 2022.
%F a(n) = d(n,0) with d(n,r) = if n=0 then r, otherwise d(floor(n/10), r*10+(n mod 10)). - _Reinhard Zumkeller_, Mar 04 2010
%F a(10*n+x) = x*10^m + a(n) if 10^(m-1) <= n < 10^m and 0 <= x <= 9. - _Robert Israel_, Jun 11 2015
%p read transforms; A004086 := digrev; #cf "Transforms" link at bottom of page
%p A004086:=proc(n) local s,t; if n<10 then n else s:=irem(n,10,'t'); while t>9 do s:=s*10+irem(t,10,'t') od: s*10+t fi end; # _M. F. Hasler_, Jan 29 2012
%t Table[FromDigits[Reverse[IntegerDigits[n]]], {n, 0, 75}]
%t IntegerReverse[Range[0,80]](* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 13 2018 *)
%o (PARI) dig(n) = {local(m=n,r=[]); while(m>0,r=concat(m%10,r);m=floor(m/10));r}
%o A004086(n) = {local(b,m,r);r=0;b=1;m=dig(n);for(i=1,matsize(m)[2],r=r+b*m[i];b=b*10);r} \\ _Michael B. Porter_, Oct 16 2009
%o (PARI) A004086(n)=fromdigits(Vecrev(digits(n))) \\ _M. F. Hasler_, Nov 11 2010, updated May 11 2015, Sep 13 2019
%o (Haskell) a004086 = read . reverse . show -- _Reinhard Zumkeller_, Apr 11 2011
%o (Python)
%o def A004086(n):
%o return int(str(n)[::-1]) # _Chai Wah Wu_, Aug 30 2014
%o (J) |.&.": i.@- 1e5 NB. _Stephen Makdisi_, May 14 2018
%Y Cf. A004185, A004186, A009996, A073138, A188649, A221714.
%Y Cf. A030101, A030102, A030103, A030104, A030105, A030107, A030108.
%K nonn,base,nice,look
%O 0,3
%A _N. J. A. Sloane_
%E Extended by _Ray Chandler_, Dec 30 2004
|
