OFFSET
0,3
LINKS
Zak Seidov, Table of n, a(n) for n = 0..1000
MATHEMATICA
Select[Range[0, 729], Length[Split[IntegerDigits[#, 3]]] ==Length[Split[IntegerDigits[#^2, 3]]]&] (* James C. McMahon, Jun 07 2025 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Mar 24 2008
STATUS
approved
