A018833 Numbers n such that n is a substring of its square in base 9 (written in base 10).

0, 1, 9, 32, 43, 81, 287, 706, 729, 4170, 6561, 30433, 37530, 38669, 42783, 59049, 99543, 192211, 281782, 394981, 415578, 531441, 561785, 666112, 1723076, 2046242, 3039924, 3485488, 4782969, 8684182, 11512384, 12684634, 18346925, 19988197, 29728486, 31190295

Offset

1,3

Links

Table of n, a(n) for n=1..36.

Mathematica

Select[Range[0, 10^7], StringContainsQ[IntegerString[#^2, 9], IntegerString[#, 9]] &] (* Paolo Xausa, Apr 05 2024 *)

Crossrefs

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).

Sequence in context: A351713 A141573 A075433 * A130510 A120498 A155098

Adjacent sequences: A018830 A018831 A018832 * A018834 A018835 A018836

Keyword

nonn,base

Author

David W. Wilson

Extensions

a(35)-a(36) from Pontus von Brömssen, Apr 04 2024

Status

approved