|
%I #4 Mar 30 2012 18:50:29
%S 0,1,100,10000,1000000,1100401,100000000,110040100,10000000000,
%T 10100049001,11004010000,1000000000000,1010004900100,1100401000000,
%U 100000000000000,100100004990001,101000490010000,110040100000000
%N Squares and their roots having square decimal digits.
%e a(6) = 1100401 = 1049^2; A019544(8)=441 is not a term, as 441=21^2 and 2 is not a square digit.
%t a = {}; Do[d = FromDigits[ ReplaceAll[ IntegerDigits[n, 4], {3 -> 9, 2 -> 4}]]; If[ Union[ Join[ IntegerDigits[d^2], {0, 1, 4, 9}]] == {0, 1, 4, 9}, a = Append[a, d^2]], {n, 0, 3*10^4}]; a
%Y a(n) = A077439(n)^2.
%Y Cf. A019544, A000290, A046030.
%K nonn,base
%O 1,3
%A _Reinhard Zumkeller_, Nov 06 2002
%E Edited by _Robert G. Wilson v_, Nov 08 2002
|
