OFFSET
1,1
COMMENTS
First digit can't be 1, 4 or 5; last digit can't be 0, 1 or 9. - Robert Israel, Mar 25 2020
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
28 is in the sequence because 28^2 = 784, the smallest decimal digit of which is 4.
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 *)
PROG
(PARI) select(k->vecmin(digits(k^2))==4, vector(3000, k, k))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Colin Barker, Aug 28 2017
STATUS
approved