A029794 Squares n such that sqrt(n) and n have the same set of digits.

0, 1, 100, 10000, 1000000, 22676644, 23348224, 100000000, 107661376, 110103049, 125552025, 153388225, 160022500, 219899241, 504002500, 552532036, 605406025, 696643236, 1169366416, 1311526225, 2267664400

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base

Comments

Only perfect squares are considered. Otherwise, this sequence would have to include numbers like 1234567890, since sqrt(1234567890) = 35136.41828644462161665823116758077037159... - Alonso del Arte, Jan 12 2020

Links

• Shawn A. Broyles and David A. Corneth, Table of n, a(n) for n = 1..10000 (First 1001 terms by Shawn A. Broyles)

Crossrefs

Cf. A029793.

Programs

Mathematica

Select[Range[0, 199999], Union[IntegerDigits[#]] == Union[IntegerDigits[#^2]] &]^2 (* Alonso del Arte, Jan 12 2020 *)

PARI

lista(nn) = {for (n=0, nn, if (Set(digits(n^2)) == Set(digits(n)), print1(n^2, ", ")););} \\ Michel Marcus, Apr 29 2018

Formula

a(n) = A029793(n)^2. - Michel Marcus, Apr 29 2018

Extensions

Offset corrected by Michel Marcus, Apr 29 2018