This site is supported by donations to The OEIS Foundation.

 Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS". Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A085305 Numbers such that first reversing digits and then squaring equals the result of first squaring and then reversing. 7
 0, 1, 2, 3, 11, 12, 13, 21, 22, 31, 101, 102, 103, 111, 112, 113, 121, 122, 201, 202, 211, 212, 221, 301, 311, 1001, 1002, 1003, 1011, 1012, 1013, 1021, 1022, 1031, 1101, 1102, 1103, 1111, 1112, 1113, 1121, 1122, 1201, 1202, 1211, 1212, 1301, 2001, 2002, 2011 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS Numbers (other than 0) that end in zero are excluded. - N. J. A. Sloane, Mar 20 2010 REFERENCES David Wells, The Dictionary of Curious and Interesting Numbers. London: Penguin Books (1997): p. 124. LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..1000 FORMULA Solutions to rev(x^2) = rev(x)^2. EXAMPLE n = 13 is here because 31^2 = 961 = rev(169) = rev(13^2) = rev(rev(31)^2) Number of solutions below 1000000 is 363. Only digits {0, 1, 2, 3} seem to arise. MATHEMATICA rt[x_] := tn[Reverse[IntegerDigits[x]]] Do[s = rt[n^2]; s1=rt[n]^2; If[Equal[s, s1]&&!Equal[Mod[n, 10], 0], Print[{n, s, rt[s1]}]], {n, 0, 1000000}] (* Labos *) Select[Range[0, 1999], FromDigits[Reverse[IntegerDigits[#^2]]] == FromDigits[Reverse[IntegerDigits[#]]]^2 &] (* Alonso del Arte, Oct 08 2012 *) PROG a085305 n = a085305_list !! (n-1) a085305_list = 0 : filter (\x -> x `mod` 10 > 0                                  && a004086 (x^2) == (a004086 x)^2) [1..] -- Reinhard Zumkeller, Jul 08 2011 (MAGMA) [0] cat [ m: n in [1..1810] | Reverse(Intseq(m^2)) eq Intseq(Seqint(Reverse(Intseq(m)))^2) where m is n+Floor((n-1)/9) ];  // Bruno Berselli, Jul 08 2011 CROSSREFS Cf. A085306. See A061909 for another version. Sequence in context: A130803 A007932 A035122 * A189818 A116032 A116029 Adjacent sequences:  A085302 A085303 A085304 * A085306 A085307 A085308 KEYWORD base,nonn AUTHOR Labos Elemer, Jun 27 2003 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.