%I #19 Feb 03 2022 22:50:54
%S 0,1,4,13,24,41,100,121,144,213,244,321,400,441,524,1013,1104,1201,
%T 1300,1401,1504,2013,2124,2241,2400,2521,3044,3213,3344,3521,4100,
%U 4241,4424,5013,5204,5401,10000,10201,10404,11013,11224,11441,12100,12321,12544
%N Squares written in base 6.
%H T. D. Noe, <a href="/A001741/b001741.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = A007092(A000290(n)). - _Jason Kimberley_, Dec 13 2012
%t Table[FromDigits[IntegerDigits[n^2, 6]], {n, 0, 50}] (* _T. D. Noe_, Aug 10 2012 *)
%o (PARI) a(n)=fromdigits(digits(n^2,6)) \\ _Charles R Greathouse IV_, Oct 16 2015
%K base,easy,nonn
%O 0,3
%A _N. J. A. Sloane_