|
%I #11 Sep 09 2017 03:32:07
%S 26,83,264,313,824,836,883,887,937,3114,8167,8813,8887,8937,9417,9833,
%T 25824,26264,29614,29626,89324,89437,93637,94863,98336,260167,262617,
%U 314113,817863,817924,818333,818474,823887,828667,835386,875614,931117,936417,937383
%N Numbers k such that 6 is the smallest decimal digit of k^2.
%C 9949370777987917 is the smallest number k such that the smallest decimal digit of k^2 is 7. - _Chai Wah Wu_, Sep 08 2017
%H Chai Wah Wu, <a href="/A291631/b291631.txt">Table of n, a(n) for n = 1..10001</a>
%e 26 is in the sequence because 26^2 = 676, the smallest decimal digit of which is 6.
%t Select[Range[10^6], Min[IntegerDigits[#^2]]==6 &] (* _Vincenzo Librandi_, Sep 09 2017 *)
%o (PARI) select(k->vecmin(digits(k^2))==6, vector(1000000, k, k))
%Y Cf. A291625, A291626, A291627, A291628, A291629, A291630.
%K nonn,base
%O 1,1
%A _Colin Barker_, Aug 28 2017
|
