A267766 Numbers whose base-6 representation is a square when read in base 10.

0, 1, 4, 17, 36, 49, 64, 89, 124, 144, 169, 232, 305, 388, 409, 449, 544, 577, 612, 665, 953, 1105, 1296, 1369, 1444, 1529, 1764, 1849, 1936, 2033, 2304, 2825, 3097, 3204, 3280, 3473, 4345, 4464, 4588, 4841, 5104, 5184, 5329, 5633, 6084, 6241, 7081, 7649, 8044, 8352, 8449, 9160, 9593

Offset: 1

Author

M. F. Hasler, Jan 20 2016

Keywords

• nonn
• base

Comments

Trivially includes powers of 36, since 36^k = 100..00_6 = 10^(2k) when read in base 10. Moreover, for any a(n) in the sequence, 36*a(n) is also in the sequence. One could call "primitive" the terms not of this form. These primitive terms include the subsequence 36^k + 2*6^k + 1 = (6^k+1)^2, k > 0, which yields A033934 when written in base 6.

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A267763 - A267769 for bases 3 through 9. The base-2 analog is A000302 = powers of 4.

For a "prime" analog see also A235265, A235266, A152079, A235461 - A235482, A065720 ⊂ A036952, A065721 - A065727, A235394, A235395, A089971 ⊂ A020449, A089981, A090707 - A091924.

Programs

Magma

[n: n in [0..10^4] | IsSquare(Seqint(Intseq(n,6)))]; // Bruno Berselli, Jan 20 2016

Mathematica

Select[Range[0, 10^4], IntegerQ@ Sqrt@ FromDigits@ IntegerDigits[#, 6] &] (* Michael De Vlieger, Jan 24 2016 *)

PARI

is(n,b=6,c=10)=issquare(subst(Pol(digits(n,b)),x,c))

Python

A267766_list = [int(d,6) for d in (str(i**2) for i in range(10**6)) if max(d) < '6'] # Chai Wah Wu, Mar 12 2016