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

0, 1, 3, 4, 6, 9, 18, 24, 28, 36, 54, 81, 108, 136, 144, 168, 216, 324, 486, 648, 816, 864, 1008, 1216, 1296, 1944, 2916, 3888, 4896, 5184, 6048, 6458, 6561, 7296, 7776, 8451, 11664, 16768, 17496, 22779, 23328, 23985, 29376, 29889, 31104, 34299, 34549, 36288

Offset

1,3

Links

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

Mathematica

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

Crossrefs

Cf. A018826 (base 2), A018827 (base 3), A018828 (base 4), A018829 (base 5), A018831 (base 7), A018832 (base 8), A018833 (base 9), A018834 (base 10).

Sequence in context: A173270 A301657 A241342 * A102934 A338061 A350741

Adjacent sequences: A018827 A018828 A018829 * A018831 A018832 A018833

Keyword

nonn,base

Author

David W. Wilson

Status

approved