|
%I #13 Feb 04 2015 12:13:30
%S 25,36,225,256,576,625,676,5625,5776,7225,27225,27556,37636,55225,
%T 65536,75625,225625,226576,235225,265225,266256,275625,276676,367236,
%U 525625,553536,732736,765625,767376,2322576,2325625,2356225,2637376,2673225
%N Squares using only squarefree digits (2, 3, 5, 6, 7).
%C a(n) is == 5 or 6 (mod 10).
%H Harvey P. Dale, <a href="/A077676/b077676.txt">Table of n, a(n) for n = 1..600</a>
%t sfdsQ[n_]:=Module[{idn=DigitCount[n]},idn[[1]]==idn[[4]]==idn[[8]] == idn[[9]]==idn[[10]]==0]; Select[Range[2000]^2,sfdsQ] (* _Harvey P. Dale_, Oct 09 2011 *)
%t Table[Select[FromDigits/@Tuples[{2,3,5,6,7},n],IntegerQ[Sqrt[#]]&],{n,2,7}]//Flatten (* _Harvey P. Dale_, Feb 04 2015 *)
%Y Cf. A077674, A077675, A006716. Different from A077437.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Nov 16 2002
%E Corrected and extended by _Sascha Kurz_, Jan 28 2003
|
