login
This site is supported by donations to The OEIS Foundation.

 

Logo

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

Index entry for sequences related to reversing digits of squares

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.

License Agreements, Terms of Use, Privacy Policy .

Last modified December 13 00:17 EST 2017. Contains 295954 sequences.