A291629 Numbers k such that 4 is the smallest decimal digit of k^2.
2, 7, 8, 22, 28, 67, 74, 88, 92, 93, 212, 214, 216, 234, 238, 242, 258, 262, 293, 308, 667, 676, 678, 683, 684, 692, 707, 738, 758, 772, 817, 822, 828, 863, 864, 866, 886, 888, 892, 893, 926, 938, 972, 974, 978, 2113, 2114, 2116, 2133, 2137, 2158, 2163, 2167
Offset: 1
Examples
28 is in the sequence because 28^2 = 784, the smallest decimal digit of which is 4.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
filter:= n -> min(convert(n^2,base,10))=4: select(filter, [$1..10000]); # Robert Israel, Mar 25 2020
-
Mathematica
Select[Range[2500],Min[IntegerDigits[#^2]]==4&] (* Harvey P. Dale, Aug 03 2019 *)
-
PARI
select(k->vecmin(digits(k^2))==4, vector(3000, k, k))
Comments