%I #15 Apr 05 2024 08:19:50
%S 0,1,9,32,43,81,287,706,729,4170,6561,30433,37530,38669,42783,59049,
%T 99543,192211,281782,394981,415578,531441,561785,666112,1723076,
%U 2046242,3039924,3485488,4782969,8684182,11512384,12684634,18346925,19988197,29728486,31190295
%N Numbers n such that n is a substring of its square in base 9 (written in base 10).
%t Select[Range[0, 10^7], StringContainsQ[IntegerString[#^2, 9], IntegerString[#, 9]] &] (* _Paolo Xausa_, Apr 05 2024 *)
%Y Cf. A018826 (base 2), A018827 (base 3), A018828 (base 4), A018829 (base 5), A018830 (base 6), A018831 (base 7), A018832 (base 8), A018834 (base 10).
%K nonn,base
%O 1,3
%A _David W. Wilson_
%E a(35)-a(36) from _Pontus von Brömssen_, Apr 04 2024