A291628 - OEIS

%I #8 Sep 10 2017 02:20:11

%S 6,58,62,63,66,86,94,183,184,186,187,188,192,194,213,244,256,272,294,

%T 306,312,583,586,587,588,607,608,612,613,614,616,622,624,628,663,666,

%U 688,706,734,744,764,806,812,833,857,874,876,913,914,924,942,1833,1834

%N Numbers k such that 3 is the smallest decimal digit of k^2.

%H Vincenzo Librandi, <a href="/A291628/b291628.txt">Table of n, a(n) for n = 1..1880</a>

%e 58 is in the sequence because 58^2 = 3364, the smallest decimal digit of which is 3.

%t Select[Range[10^4], Min[IntegerDigits[#^2]]==3 &] (* _Vincenzo Librandi_, Sep 10 2017 *)

%o (PARI) select(k->vecmin(digits(k^2))==3, vector(2000, k, k))

%Y Cf. A291625, A291626, A291627, A291629, A291630, A291631.

%K nonn,base

%O 1,1

%A _Colin Barker_, Aug 28 2017