%I #7 Dec 31 2013 17:08:05
%S 3,24,26,76,83,87,236,264,313,314,316,766,816,824,834,836,883,887,937,
%T 2366,2383,2387,2424,2563,2626,2976,3114,7613,7666,8117,8167,8184,
%U 8234,8286,8366,8716,8813,8814,8887,8937,9266,9316,9363,9417,9474,9786,9833
%N Numbers n such that n^2 contains no digit less than 5.
%t Select[Range[10000],Min[IntegerDigits[#^2]]>4&] (* _Harvey P. Dale_, Dec 31 2013 *)
%o (PARI) isok(n) = vecmin(digits(n^2)) > 4; \\ _Michel Marcus_, Oct 15 2013
%Y Cf. A158082, A158304.
%K base,nonn
%O 1,1
%A _Zak Seidov_, May 24 2010
|