|
%I #16 May 19 2019 17:18:53
%S 5,6,15,16,24,25,26,75,76,85,94,165,166,184,194,235,256,275,475,476,
%T 485,515,516,525,526,535,594,606,615,725,734,744,765,766,816,826,856,
%U 874,875,876,885,915,924,925,934,1524,1525,1526,1535,1624,1635,1665,1666
%N Numbers k with the property that k^2 uses only nonsquare decimal digits (2,3,5,6,7,8).
%F a(n) = sqrt(A077437(n)).
%t nsdQ[n_]:=Module[{idn=IntegerDigits[n]}, !MemberQ[idn,1] && And@@SquareFreeQ/@idn]; Select[Range[2000],nsdQ[#^2]&] (* _Harvey P. Dale_, Feb 01 2011 *)
%Y Cf. A077437 (Squares whose decimal digits are nonsquares (2, 3, 5, 6, 7, 8)).
%K base,nonn
%O 1,1
%A _Zak Seidov_, May 02 2009
|
