OFFSET
1,1
LINKS
K. Mahler, The representation of squares to the base 3, Acta Arith. Vol. 53, Issue 1 (1989), p. 99-106.
MATHEMATICA
Select[Range[100], DigitCount[#^2, 3, 1]>0&&DigitCount[#^2, 3, 2]>0&] (* Harvey P. Dale, May 07 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Marcus, Nov 12 2012
STATUS
approved