OFFSET
1,3
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)
FORMULA
a(n) = A029793(n)^2. - Michel Marcus, Apr 29 2018
MATHEMATICA
Select[Range[0, 199999], Union[IntegerDigits[#]] == Union[IntegerDigits[#^2]] &]^2 (* Alonso del Arte, Jan 12 2020 *)
PROG
(PARI) lista(nn) = {for (n=0, nn, if (Set(digits(n^2)) == Set(digits(n)), print1(n^2, ", ")); ); } \\ Michel Marcus, Apr 29 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Offset corrected by Michel Marcus, Apr 29 2018
STATUS
approved